{-# 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 ,
noPrintCompositor ,
#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 ,
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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.PrintContext as Gtk.PrintContext
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Buffer as GtkSource.Buffer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
newtype PrintCompositor = PrintCompositor (ManagedPtr PrintCompositor)
deriving (PrintCompositor -> PrintCompositor -> Bool
(PrintCompositor -> PrintCompositor -> Bool)
-> (PrintCompositor -> PrintCompositor -> Bool)
-> Eq PrintCompositor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PrintCompositor -> PrintCompositor -> Bool
$c/= :: PrintCompositor -> PrintCompositor -> Bool
== :: PrintCompositor -> PrintCompositor -> Bool
$c== :: PrintCompositor -> PrintCompositor -> Bool
Eq)
foreign import ccall "gtk_source_print_compositor_get_type"
c_gtk_source_print_compositor_get_type :: IO GType
instance GObject PrintCompositor where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_source_print_compositor_get_type
instance B.GValue.IsGValue PrintCompositor where
toGValue :: PrintCompositor -> IO GValue
toGValue o :: PrintCompositor
o = do
GType
gtype <- IO GType
c_gtk_source_print_compositor_get_type
PrintCompositor -> (Ptr PrintCompositor -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PrintCompositor
o (GType
-> (GValue -> Ptr PrintCompositor -> IO ())
-> Ptr PrintCompositor
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr PrintCompositor -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO PrintCompositor
fromGValue gv :: GValue
gv = do
Ptr PrintCompositor
ptr <- GValue -> IO (Ptr PrintCompositor)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr PrintCompositor)
(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
class (GObject o, O.IsDescendantOf PrintCompositor o) => IsPrintCompositor o
instance (GObject o, O.IsDescendantOf PrintCompositor o) => IsPrintCompositor o
instance O.HasParentTypes PrintCompositor
type instance O.ParentTypes PrintCompositor = '[GObject.Object.Object]
toPrintCompositor :: (MonadIO m, IsPrintCompositor o) => o -> m PrintCompositor
toPrintCompositor :: o -> m PrintCompositor
toPrintCompositor = IO PrintCompositor -> m PrintCompositor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr PrintCompositor -> PrintCompositor
PrintCompositor
noPrintCompositor :: Maybe PrintCompositor
noPrintCompositor :: Maybe PrintCompositor
noPrintCompositor = Maybe PrintCompositor
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePrintCompositorMethod (t :: Symbol) (o :: *) :: * 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 "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.MethodInfo 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
#endif
getPrintCompositorBodyFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
getPrintCompositorBodyFontName :: o -> m (Maybe Text)
getPrintCompositorBodyFontName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "body-font-name"
setPrintCompositorBodyFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
setPrintCompositorBodyFontName :: o -> Text -> m ()
setPrintCompositorBodyFontName obj :: o
obj val :: Text
val = IO () -> m ()
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 "body-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorBodyFontName :: (IsPrintCompositor o) => T.Text -> IO (GValueConstruct o)
constructPrintCompositorBodyFontName :: Text -> IO (GValueConstruct o)
constructPrintCompositorBodyFontName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "body-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
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
#endif
getPrintCompositorBuffer :: (MonadIO m, IsPrintCompositor o) => o -> m GtkSource.Buffer.Buffer
getPrintCompositorBuffer :: o -> m Buffer
getPrintCompositorBuffer obj :: o
obj = IO Buffer -> m Buffer
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
$ Text -> IO (Maybe Buffer) -> IO Buffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "buffer" ManagedPtr Buffer -> Buffer
GtkSource.Buffer.Buffer
constructPrintCompositorBuffer :: (IsPrintCompositor o, GtkSource.Buffer.IsBuffer a) => a -> IO (GValueConstruct o)
constructPrintCompositorBuffer :: a -> IO (GValueConstruct o)
constructPrintCompositorBuffer val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "buffer" (a -> Maybe a
forall a. a -> Maybe a
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
#endif
getPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "footer-font-name"
setPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
obj :: o
obj val :: Text
val = IO () -> m ()
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 "footer-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorFooterFontName :: (IsPrintCompositor o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "footer-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
obj :: o
obj = IO () -> m ()
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 "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
#endif
getPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "header-font-name"
setPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
obj :: o
obj val :: Text
val = IO () -> m ()
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 "header-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorHeaderFontName :: (IsPrintCompositor o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "header-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
obj :: o
obj = IO () -> m ()
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 "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
#endif
getPrintCompositorHighlightSyntax :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
getPrintCompositorHighlightSyntax :: o -> m Bool
getPrintCompositorHighlightSyntax obj :: o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "highlight-syntax"
setPrintCompositorHighlightSyntax :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
setPrintCompositorHighlightSyntax :: o -> Bool -> m ()
setPrintCompositorHighlightSyntax obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "highlight-syntax" Bool
val
constructPrintCompositorHighlightSyntax :: (IsPrintCompositor o) => Bool -> IO (GValueConstruct o)
constructPrintCompositorHighlightSyntax :: Bool -> IO (GValueConstruct o)
constructPrintCompositorHighlightSyntax val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
getPrintCompositorLineNumbersFontName :: o -> m (Maybe Text)
getPrintCompositorLineNumbersFontName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "line-numbers-font-name"
setPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
setPrintCompositorLineNumbersFontName :: o -> Text -> m ()
setPrintCompositorLineNumbersFontName obj :: o
obj val :: Text
val = IO () -> m ()
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 "line-numbers-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorLineNumbersFontName :: (IsPrintCompositor o) => T.Text -> IO (GValueConstruct o)
constructPrintCompositorLineNumbersFontName :: Text -> IO (GValueConstruct o)
constructPrintCompositorLineNumbersFontName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "line-numbers-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
clearPrintCompositorLineNumbersFontName :: o -> m ()
clearPrintCompositorLineNumbersFontName obj :: o
obj = IO () -> m ()
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 "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
#endif
getPrintCompositorNPages :: (MonadIO m, IsPrintCompositor o) => o -> m Int32
getPrintCompositorNPages :: o -> m Int32
getPrintCompositorNPages obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "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
#endif
getPrintCompositorPrintFooter :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "print-footer"
setPrintCompositorPrintFooter :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "print-footer" Bool
val
constructPrintCompositorPrintFooter :: (IsPrintCompositor o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getPrintCompositorPrintHeader :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "print-header"
setPrintCompositorPrintHeader :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "print-header" Bool
val
constructPrintCompositorPrintHeader :: (IsPrintCompositor o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getPrintCompositorPrintLineNumbers :: (MonadIO m, IsPrintCompositor o) => o -> m Word32
getPrintCompositorPrintLineNumbers :: o -> m Word32
getPrintCompositorPrintLineNumbers obj :: o
obj = IO Word32 -> m Word32
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
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "print-line-numbers"
setPrintCompositorPrintLineNumbers :: (MonadIO m, IsPrintCompositor o) => o -> Word32 -> m ()
setPrintCompositorPrintLineNumbers :: o -> Word32 -> m ()
setPrintCompositorPrintLineNumbers obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "print-line-numbers" Word32
val
constructPrintCompositorPrintLineNumbers :: (IsPrintCompositor o) => Word32 -> IO (GValueConstruct o)
constructPrintCompositorPrintLineNumbers :: Word32 -> IO (GValueConstruct o)
constructPrintCompositorPrintLineNumbers val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "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
#endif
getPrintCompositorTabWidth :: (MonadIO m, IsPrintCompositor o) => o -> m Word32
getPrintCompositorTabWidth :: o -> m Word32
getPrintCompositorTabWidth obj :: o
obj = IO Word32 -> m Word32
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
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "tab-width"
setPrintCompositorTabWidth :: (MonadIO m, IsPrintCompositor o) => o -> Word32 -> m ()
setPrintCompositorTabWidth :: o -> Word32 -> m ()
setPrintCompositorTabWidth obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "tab-width" Word32
val
constructPrintCompositorTabWidth :: (IsPrintCompositor o) => Word32 -> IO (GValueConstruct o)
constructPrintCompositorTabWidth :: Word32 -> IO (GValueConstruct o)
constructPrintCompositorTabWidth val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "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
#endif
getPrintCompositorWrapMode :: (MonadIO m, IsPrintCompositor o) => o -> m Gtk.Enums.WrapMode
getPrintCompositorWrapMode :: o -> m WrapMode
getPrintCompositorWrapMode obj :: o
obj = IO WrapMode -> m WrapMode
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
$ o -> String -> IO WrapMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "wrap-mode"
setPrintCompositorWrapMode :: (MonadIO m, IsPrintCompositor o) => o -> Gtk.Enums.WrapMode -> m ()
setPrintCompositorWrapMode :: o -> WrapMode -> m ()
setPrintCompositorWrapMode obj :: o
obj val :: WrapMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> WrapMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "wrap-mode" WrapMode
val
constructPrintCompositorWrapMode :: (IsPrintCompositor o) => Gtk.Enums.WrapMode -> IO (GValueConstruct o)
constructPrintCompositorWrapMode :: WrapMode -> IO (GValueConstruct o)
constructPrintCompositorWrapMode val :: WrapMode
val = String -> WrapMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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
#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, *)])
#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, *)])
#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 :: a -> m PrintCompositor
printCompositorNew buffer :: a
buffer = IO PrintCompositor -> m PrintCompositor
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 "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 (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 :: a -> m PrintCompositor
printCompositorNewFromView view :: a
view = IO PrintCompositor -> m PrintCompositor
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 "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 (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 :: a -> b -> Int32 -> m ()
printCompositorDrawPage compositor :: a
compositor context :: b
context pageNr :: Int32
pageNr = IO () -> m ()
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 (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.MethodInfo PrintCompositorDrawPageMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
printCompositorGetBodyFontName compositor :: a
compositor = IO Text -> m Text
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 "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 (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.MethodInfo PrintCompositorGetBodyFontNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Unit -> m Double
printCompositorGetBottomMargin compositor :: a
compositor unit :: Unit
unit = IO Double -> m Double
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 (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.MethodInfo PrintCompositorGetBottomMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> m Buffer
printCompositorGetBuffer compositor :: a
compositor = IO Buffer -> m Buffer
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 "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 (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.MethodInfo PrintCompositorGetBufferMethodInfo a signature where
overloadedMethod = 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
compositor :: a
compositor = IO Text -> m Text
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 "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 (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.MethodInfo PrintCompositorGetFooterFontNameMethodInfo a signature where
overloadedMethod = 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
compositor :: a
compositor = IO Text -> m Text
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 "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 (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.MethodInfo PrintCompositorGetHeaderFontNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
printCompositorGetHighlightSyntax compositor :: a
compositor = IO Bool -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
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.MethodInfo PrintCompositorGetHighlightSyntaxMethodInfo a signature where
overloadedMethod = 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 :: a -> Unit -> m Double
printCompositorGetLeftMargin compositor :: a
compositor unit :: Unit
unit = IO Double -> m Double
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 (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.MethodInfo PrintCompositorGetLeftMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
printCompositorGetLineNumbersFontName compositor :: a
compositor = IO Text -> m Text
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 "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 (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.MethodInfo PrintCompositorGetLineNumbersFontNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
printCompositorGetNPages compositor :: a
compositor = IO Int32 -> m Int32
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 (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.MethodInfo PrintCompositorGetNPagesMethodInfo a signature where
overloadedMethod = 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
compositor :: a
compositor = IO Double -> m Double
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 (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.MethodInfo PrintCompositorGetPaginationProgressMethodInfo a signature where
overloadedMethod = 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
compositor :: a
compositor = IO Bool -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
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.MethodInfo PrintCompositorGetPrintFooterMethodInfo a signature where
overloadedMethod = 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
compositor :: a
compositor = IO Bool -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
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.MethodInfo PrintCompositorGetPrintHeaderMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
printCompositorGetPrintLineNumbers compositor :: a
compositor = IO Word32 -> m Word32
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 (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.MethodInfo PrintCompositorGetPrintLineNumbersMethodInfo a signature where
overloadedMethod = 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 :: a -> Unit -> m Double
printCompositorGetRightMargin compositor :: a
compositor unit :: Unit
unit = IO Double -> m Double
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 (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.MethodInfo PrintCompositorGetRightMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
printCompositorGetTabWidth compositor :: a
compositor = IO Word32 -> m Word32
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 (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.MethodInfo PrintCompositorGetTabWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Unit -> m Double
printCompositorGetTopMargin compositor :: a
compositor unit :: Unit
unit = IO Double -> m Double
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 (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.MethodInfo PrintCompositorGetTopMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> m WrapMode
printCompositorGetWrapMode compositor :: a
compositor = IO WrapMode -> m WrapMode
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 (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.MethodInfo PrintCompositorGetWrapModeMethodInfo a signature where
overloadedMethod = printCompositorGetWrapMode
#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 :: a -> b -> m Bool
printCompositorPaginate compositor :: a
compositor context :: b
context = IO Bool -> m Bool
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
/= 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 (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.MethodInfo PrintCompositorPaginateMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
printCompositorSetBodyFontName compositor :: a
compositor fontName :: Text
fontName = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetBodyFontNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetBodyFontNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Unit -> m ()
printCompositorSetBottomMargin compositor :: a
compositor margin :: Double
margin unit :: Unit
unit = IO () -> m ()
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 (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.MethodInfo PrintCompositorSetBottomMarginMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor fontName :: Maybe Text
fontName = IO () -> m ()
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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jFontName :: Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
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 (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.MethodInfo PrintCompositorSetFooterFontNameMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor separator :: Bool
separator left :: Maybe Text
left center :: Maybe Text
center right :: Maybe Text
right = IO () -> m ()
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
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
fromEnum) Bool
separator
CString
maybeLeft <- case Maybe Text
left of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jLeft :: Text
jLeft -> do
CString
jLeft' <- Text -> IO CString
textToCString Text
jLeft
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLeft'
CString
maybeCenter <- case Maybe Text
center of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jCenter :: Text
jCenter -> do
CString
jCenter' <- Text -> IO CString
textToCString Text
jCenter
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCenter'
CString
maybeRight <- case Maybe Text
right of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jRight :: Text
jRight -> do
CString
jRight' <- Text -> IO CString
textToCString Text
jRight
CString -> IO CString
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 (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.MethodInfo PrintCompositorSetFooterFormatMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor fontName :: Maybe Text
fontName = IO () -> m ()
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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jFontName :: Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
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 (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.MethodInfo PrintCompositorSetHeaderFontNameMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor separator :: Bool
separator left :: Maybe Text
left center :: Maybe Text
center right :: Maybe Text
right = IO () -> m ()
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
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
fromEnum) Bool
separator
CString
maybeLeft <- case Maybe Text
left of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jLeft :: Text
jLeft -> do
CString
jLeft' <- Text -> IO CString
textToCString Text
jLeft
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLeft'
CString
maybeCenter <- case Maybe Text
center of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jCenter :: Text
jCenter -> do
CString
jCenter' <- Text -> IO CString
textToCString Text
jCenter
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCenter'
CString
maybeRight <- case Maybe Text
right of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jRight :: Text
jRight -> do
CString
jRight' <- Text -> IO CString
textToCString Text
jRight
CString -> IO CString
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 (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.MethodInfo PrintCompositorSetHeaderFormatMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
printCompositorSetHighlightSyntax compositor :: a
compositor highlight :: Bool
highlight = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetHighlightSyntaxMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetHighlightSyntaxMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Unit -> m ()
printCompositorSetLeftMargin compositor :: a
compositor margin :: Double
margin unit :: Unit
unit = IO () -> m ()
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 (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.MethodInfo PrintCompositorSetLeftMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Text -> m ()
printCompositorSetLineNumbersFontName compositor :: a
compositor fontName :: Maybe Text
fontName = IO () -> m ()
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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jFontName :: Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
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 (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.MethodInfo PrintCompositorSetLineNumbersFontNameMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor print :: Bool
print = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintFooterMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetPrintFooterMethodInfo a signature where
overloadedMethod = 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 ()
compositor :: a
compositor print :: Bool
print = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintHeaderMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetPrintHeaderMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> m ()
printCompositorSetPrintLineNumbers compositor :: a
compositor interval :: Word32
interval = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintLineNumbersMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetPrintLineNumbersMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Unit -> m ()
printCompositorSetRightMargin compositor :: a
compositor margin :: Double
margin unit :: Unit
unit = IO () -> m ()
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 (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.MethodInfo PrintCompositorSetRightMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> m ()
printCompositorSetTabWidth compositor :: a
compositor width :: Word32
width = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetTabWidthMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsPrintCompositor a) => O.MethodInfo PrintCompositorSetTabWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Unit -> m ()
printCompositorSetTopMargin compositor :: a
compositor margin :: Double
margin unit :: Unit
unit = IO () -> m ()
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 (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.MethodInfo PrintCompositorSetTopMarginMethodInfo a signature where
overloadedMethod = 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 :: a -> WrapMode -> m ()
printCompositorSetWrapMode compositor :: a
compositor wrapMode :: WrapMode
wrapMode = IO () -> m ()
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 (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.MethodInfo PrintCompositorSetWrapModeMethodInfo a signature where
overloadedMethod = printCompositorSetWrapMode
#endif