{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.PrintOperation
(
PrintOperation(..) ,
IsPrintOperation ,
toPrintOperation ,
#if defined(ENABLE_OVERLOADING)
ResolvePrintOperationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintOperationCancelMethodInfo ,
#endif
printOperationCancel ,
#if defined(ENABLE_OVERLOADING)
PrintOperationDrawPageFinishMethodInfo ,
#endif
printOperationDrawPageFinish ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetDefaultPageSetupMethodInfo,
#endif
printOperationGetDefaultPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetEmbedPageSetupMethodInfo,
#endif
printOperationGetEmbedPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetErrorMethodInfo ,
#endif
printOperationGetError ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetHasSelectionMethodInfo ,
#endif
printOperationGetHasSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetNPagesToPrintMethodInfo,
#endif
printOperationGetNPagesToPrint ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetPrintSettingsMethodInfo,
#endif
printOperationGetPrintSettings ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetStatusMethodInfo ,
#endif
printOperationGetStatus ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetStatusStringMethodInfo ,
#endif
printOperationGetStatusString ,
#if defined(ENABLE_OVERLOADING)
PrintOperationGetSupportSelectionMethodInfo,
#endif
printOperationGetSupportSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationIsFinishedMethodInfo ,
#endif
printOperationIsFinished ,
printOperationNew ,
#if defined(ENABLE_OVERLOADING)
PrintOperationRunMethodInfo ,
#endif
printOperationRun ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetAllowAsyncMethodInfo ,
#endif
printOperationSetAllowAsync ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetCurrentPageMethodInfo ,
#endif
printOperationSetCurrentPage ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetCustomTabLabelMethodInfo,
#endif
printOperationSetCustomTabLabel ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetDefaultPageSetupMethodInfo,
#endif
printOperationSetDefaultPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetDeferDrawingMethodInfo ,
#endif
printOperationSetDeferDrawing ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetEmbedPageSetupMethodInfo,
#endif
printOperationSetEmbedPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetExportFilenameMethodInfo,
#endif
printOperationSetExportFilename ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetHasSelectionMethodInfo ,
#endif
printOperationSetHasSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetJobNameMethodInfo ,
#endif
printOperationSetJobName ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetNPagesMethodInfo ,
#endif
printOperationSetNPages ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetPrintSettingsMethodInfo,
#endif
printOperationSetPrintSettings ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetShowProgressMethodInfo ,
#endif
printOperationSetShowProgress ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetSupportSelectionMethodInfo,
#endif
printOperationSetSupportSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetTrackPrintStatusMethodInfo,
#endif
printOperationSetTrackPrintStatus ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetUnitMethodInfo ,
#endif
printOperationSetUnit ,
#if defined(ENABLE_OVERLOADING)
PrintOperationSetUseFullPageMethodInfo ,
#endif
printOperationSetUseFullPage ,
#if defined(ENABLE_OVERLOADING)
PrintOperationAllowAsyncPropertyInfo ,
#endif
constructPrintOperationAllowAsync ,
getPrintOperationAllowAsync ,
#if defined(ENABLE_OVERLOADING)
printOperationAllowAsync ,
#endif
setPrintOperationAllowAsync ,
#if defined(ENABLE_OVERLOADING)
PrintOperationCurrentPagePropertyInfo ,
#endif
constructPrintOperationCurrentPage ,
getPrintOperationCurrentPage ,
#if defined(ENABLE_OVERLOADING)
printOperationCurrentPage ,
#endif
setPrintOperationCurrentPage ,
#if defined(ENABLE_OVERLOADING)
PrintOperationCustomTabLabelPropertyInfo,
#endif
clearPrintOperationCustomTabLabel ,
constructPrintOperationCustomTabLabel ,
getPrintOperationCustomTabLabel ,
#if defined(ENABLE_OVERLOADING)
printOperationCustomTabLabel ,
#endif
setPrintOperationCustomTabLabel ,
#if defined(ENABLE_OVERLOADING)
PrintOperationDefaultPageSetupPropertyInfo,
#endif
clearPrintOperationDefaultPageSetup ,
constructPrintOperationDefaultPageSetup ,
getPrintOperationDefaultPageSetup ,
#if defined(ENABLE_OVERLOADING)
printOperationDefaultPageSetup ,
#endif
setPrintOperationDefaultPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationEmbedPageSetupPropertyInfo,
#endif
constructPrintOperationEmbedPageSetup ,
getPrintOperationEmbedPageSetup ,
#if defined(ENABLE_OVERLOADING)
printOperationEmbedPageSetup ,
#endif
setPrintOperationEmbedPageSetup ,
#if defined(ENABLE_OVERLOADING)
PrintOperationExportFilenamePropertyInfo,
#endif
clearPrintOperationExportFilename ,
constructPrintOperationExportFilename ,
getPrintOperationExportFilename ,
#if defined(ENABLE_OVERLOADING)
printOperationExportFilename ,
#endif
setPrintOperationExportFilename ,
#if defined(ENABLE_OVERLOADING)
PrintOperationHasSelectionPropertyInfo ,
#endif
constructPrintOperationHasSelection ,
getPrintOperationHasSelection ,
#if defined(ENABLE_OVERLOADING)
printOperationHasSelection ,
#endif
setPrintOperationHasSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationJobNamePropertyInfo ,
#endif
constructPrintOperationJobName ,
getPrintOperationJobName ,
#if defined(ENABLE_OVERLOADING)
printOperationJobName ,
#endif
setPrintOperationJobName ,
#if defined(ENABLE_OVERLOADING)
PrintOperationNPagesPropertyInfo ,
#endif
constructPrintOperationNPages ,
getPrintOperationNPages ,
#if defined(ENABLE_OVERLOADING)
printOperationNPages ,
#endif
setPrintOperationNPages ,
#if defined(ENABLE_OVERLOADING)
PrintOperationNPagesToPrintPropertyInfo ,
#endif
getPrintOperationNPagesToPrint ,
#if defined(ENABLE_OVERLOADING)
printOperationNPagesToPrint ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintOperationPrintSettingsPropertyInfo ,
#endif
clearPrintOperationPrintSettings ,
constructPrintOperationPrintSettings ,
getPrintOperationPrintSettings ,
#if defined(ENABLE_OVERLOADING)
printOperationPrintSettings ,
#endif
setPrintOperationPrintSettings ,
#if defined(ENABLE_OVERLOADING)
PrintOperationShowProgressPropertyInfo ,
#endif
constructPrintOperationShowProgress ,
getPrintOperationShowProgress ,
#if defined(ENABLE_OVERLOADING)
printOperationShowProgress ,
#endif
setPrintOperationShowProgress ,
#if defined(ENABLE_OVERLOADING)
PrintOperationStatusPropertyInfo ,
#endif
getPrintOperationStatus ,
#if defined(ENABLE_OVERLOADING)
printOperationStatus ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintOperationStatusStringPropertyInfo ,
#endif
getPrintOperationStatusString ,
#if defined(ENABLE_OVERLOADING)
printOperationStatusString ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintOperationSupportSelectionPropertyInfo,
#endif
constructPrintOperationSupportSelection ,
getPrintOperationSupportSelection ,
#if defined(ENABLE_OVERLOADING)
printOperationSupportSelection ,
#endif
setPrintOperationSupportSelection ,
#if defined(ENABLE_OVERLOADING)
PrintOperationTrackPrintStatusPropertyInfo,
#endif
constructPrintOperationTrackPrintStatus ,
getPrintOperationTrackPrintStatus ,
#if defined(ENABLE_OVERLOADING)
printOperationTrackPrintStatus ,
#endif
setPrintOperationTrackPrintStatus ,
#if defined(ENABLE_OVERLOADING)
PrintOperationUnitPropertyInfo ,
#endif
constructPrintOperationUnit ,
getPrintOperationUnit ,
#if defined(ENABLE_OVERLOADING)
printOperationUnit ,
#endif
setPrintOperationUnit ,
#if defined(ENABLE_OVERLOADING)
PrintOperationUseFullPagePropertyInfo ,
#endif
constructPrintOperationUseFullPage ,
getPrintOperationUseFullPage ,
#if defined(ENABLE_OVERLOADING)
printOperationUseFullPage ,
#endif
setPrintOperationUseFullPage ,
PrintOperationBeginPrintCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationBeginPrintSignalInfo ,
#endif
afterPrintOperationBeginPrint ,
onPrintOperationBeginPrint ,
PrintOperationCreateCustomWidgetCallback,
#if defined(ENABLE_OVERLOADING)
PrintOperationCreateCustomWidgetSignalInfo,
#endif
afterPrintOperationCreateCustomWidget ,
onPrintOperationCreateCustomWidget ,
PrintOperationCustomWidgetApplyCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationCustomWidgetApplySignalInfo,
#endif
afterPrintOperationCustomWidgetApply ,
onPrintOperationCustomWidgetApply ,
PrintOperationDoneCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationDoneSignalInfo ,
#endif
afterPrintOperationDone ,
onPrintOperationDone ,
PrintOperationDrawPageCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationDrawPageSignalInfo ,
#endif
afterPrintOperationDrawPage ,
onPrintOperationDrawPage ,
PrintOperationEndPrintCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationEndPrintSignalInfo ,
#endif
afterPrintOperationEndPrint ,
onPrintOperationEndPrint ,
PrintOperationPaginateCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationPaginateSignalInfo ,
#endif
afterPrintOperationPaginate ,
onPrintOperationPaginate ,
PrintOperationPreviewCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationPreviewSignalInfo ,
#endif
afterPrintOperationPreview ,
onPrintOperationPreview ,
PrintOperationRequestPageSetupCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationRequestPageSetupSignalInfo,
#endif
afterPrintOperationRequestPageSetup ,
onPrintOperationRequestPageSetup ,
PrintOperationStatusChangedCallback ,
#if defined(ENABLE_OVERLOADING)
PrintOperationStatusChangedSignalInfo ,
#endif
afterPrintOperationStatusChanged ,
onPrintOperationStatusChanged ,
PrintOperationUpdateCustomWidgetCallback,
#if defined(ENABLE_OVERLOADING)
PrintOperationUpdateCustomWidgetSignalInfo,
#endif
afterPrintOperationUpdateCustomWidget ,
onPrintOperationUpdateCustomWidget ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.PrintOperationPreview as Gtk.PrintOperationPreview
import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintContext as Gtk.PrintContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
newtype PrintOperation = PrintOperation (SP.ManagedPtr PrintOperation)
deriving (PrintOperation -> PrintOperation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PrintOperation -> PrintOperation -> Bool
$c/= :: PrintOperation -> PrintOperation -> Bool
== :: PrintOperation -> PrintOperation -> Bool
$c== :: PrintOperation -> PrintOperation -> Bool
Eq)
instance SP.ManagedPtrNewtype PrintOperation where
toManagedPtr :: PrintOperation -> ManagedPtr PrintOperation
toManagedPtr (PrintOperation ManagedPtr PrintOperation
p) = ManagedPtr PrintOperation
p
foreign import ccall "gtk_print_operation_get_type"
c_gtk_print_operation_get_type :: IO B.Types.GType
instance B.Types.TypedObject PrintOperation where
glibType :: IO GType
glibType = IO GType
c_gtk_print_operation_get_type
instance B.Types.GObject PrintOperation
class (SP.GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o
instance (SP.GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o
instance O.HasParentTypes PrintOperation
type instance O.ParentTypes PrintOperation = '[GObject.Object.Object, Gtk.PrintOperationPreview.PrintOperationPreview]
toPrintOperation :: (MIO.MonadIO m, IsPrintOperation o) => o -> m PrintOperation
toPrintOperation :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m PrintOperation
toPrintOperation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PrintOperation -> PrintOperation
PrintOperation
instance B.GValue.IsGValue (Maybe PrintOperation) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_print_operation_get_type
gvalueSet_ :: Ptr GValue -> Maybe PrintOperation -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PrintOperation
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr PrintOperation)
gvalueSet_ Ptr GValue
gv (P.Just PrintOperation
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PrintOperation
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PrintOperation)
gvalueGet_ Ptr GValue
gv = do
Ptr PrintOperation
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PrintOperation)
if Ptr PrintOperation
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PrintOperation -> PrintOperation
PrintOperation Ptr PrintOperation
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePrintOperationMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePrintOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePrintOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePrintOperationMethod "cancel" o = PrintOperationCancelMethodInfo
ResolvePrintOperationMethod "drawPageFinish" o = PrintOperationDrawPageFinishMethodInfo
ResolvePrintOperationMethod "endPreview" o = Gtk.PrintOperationPreview.PrintOperationPreviewEndPreviewMethodInfo
ResolvePrintOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePrintOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePrintOperationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePrintOperationMethod "isFinished" o = PrintOperationIsFinishedMethodInfo
ResolvePrintOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePrintOperationMethod "isSelected" o = Gtk.PrintOperationPreview.PrintOperationPreviewIsSelectedMethodInfo
ResolvePrintOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePrintOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePrintOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePrintOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePrintOperationMethod "renderPage" o = Gtk.PrintOperationPreview.PrintOperationPreviewRenderPageMethodInfo
ResolvePrintOperationMethod "run" o = PrintOperationRunMethodInfo
ResolvePrintOperationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePrintOperationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePrintOperationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePrintOperationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePrintOperationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePrintOperationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePrintOperationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePrintOperationMethod "getDefaultPageSetup" o = PrintOperationGetDefaultPageSetupMethodInfo
ResolvePrintOperationMethod "getEmbedPageSetup" o = PrintOperationGetEmbedPageSetupMethodInfo
ResolvePrintOperationMethod "getError" o = PrintOperationGetErrorMethodInfo
ResolvePrintOperationMethod "getHasSelection" o = PrintOperationGetHasSelectionMethodInfo
ResolvePrintOperationMethod "getNPagesToPrint" o = PrintOperationGetNPagesToPrintMethodInfo
ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo
ResolvePrintOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePrintOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePrintOperationMethod "getStatus" o = PrintOperationGetStatusMethodInfo
ResolvePrintOperationMethod "getStatusString" o = PrintOperationGetStatusStringMethodInfo
ResolvePrintOperationMethod "getSupportSelection" o = PrintOperationGetSupportSelectionMethodInfo
ResolvePrintOperationMethod "setAllowAsync" o = PrintOperationSetAllowAsyncMethodInfo
ResolvePrintOperationMethod "setCurrentPage" o = PrintOperationSetCurrentPageMethodInfo
ResolvePrintOperationMethod "setCustomTabLabel" o = PrintOperationSetCustomTabLabelMethodInfo
ResolvePrintOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePrintOperationMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePrintOperationMethod "setDefaultPageSetup" o = PrintOperationSetDefaultPageSetupMethodInfo
ResolvePrintOperationMethod "setDeferDrawing" o = PrintOperationSetDeferDrawingMethodInfo
ResolvePrintOperationMethod "setEmbedPageSetup" o = PrintOperationSetEmbedPageSetupMethodInfo
ResolvePrintOperationMethod "setExportFilename" o = PrintOperationSetExportFilenameMethodInfo
ResolvePrintOperationMethod "setHasSelection" o = PrintOperationSetHasSelectionMethodInfo
ResolvePrintOperationMethod "setJobName" o = PrintOperationSetJobNameMethodInfo
ResolvePrintOperationMethod "setNPages" o = PrintOperationSetNPagesMethodInfo
ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo
ResolvePrintOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePrintOperationMethod "setShowProgress" o = PrintOperationSetShowProgressMethodInfo
ResolvePrintOperationMethod "setSupportSelection" o = PrintOperationSetSupportSelectionMethodInfo
ResolvePrintOperationMethod "setTrackPrintStatus" o = PrintOperationSetTrackPrintStatusMethodInfo
ResolvePrintOperationMethod "setUnit" o = PrintOperationSetUnitMethodInfo
ResolvePrintOperationMethod "setUseFullPage" o = PrintOperationSetUseFullPageMethodInfo
ResolvePrintOperationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePrintOperationMethod t PrintOperation, O.OverloadedMethod info PrintOperation p) => OL.IsLabel t (PrintOperation -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePrintOperationMethod t PrintOperation, O.OverloadedMethod info PrintOperation p, R.HasField t PrintOperation p) => R.HasField t PrintOperation p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePrintOperationMethod t PrintOperation, O.OverloadedMethodInfo info PrintOperation) => OL.IsLabel t (O.MethodProxy info PrintOperation) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type PrintOperationBeginPrintCallback =
Gtk.PrintContext.PrintContext
-> IO ()
type C_PrintOperationBeginPrintCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationBeginPrintCallback :: C_PrintOperationBeginPrintCallback -> IO (FunPtr C_PrintOperationBeginPrintCallback)
wrap_PrintOperationBeginPrintCallback ::
GObject a => (a -> PrintOperationBeginPrintCallback) ->
C_PrintOperationBeginPrintCallback
wrap_PrintOperationBeginPrintCallback :: forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationBeginPrintCallback a -> PrintOperationBeginPrintCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintContext
context Ptr ()
_ = do
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationBeginPrintCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintContext
context'
onPrintOperationBeginPrint :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationBeginPrintCallback) -> m SignalHandlerId
onPrintOperationBeginPrint :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationBeginPrintCallback)
-> m SignalHandlerId
onPrintOperationBeginPrint a
obj (?self::a) => PrintOperationBeginPrintCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationBeginPrintCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationBeginPrintCallback
cb
let wrapped' :: C_PrintOperationBeginPrintCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationBeginPrintCallback a -> PrintOperationBeginPrintCallback
wrapped
FunPtr C_PrintOperationBeginPrintCallback
wrapped'' <- C_PrintOperationBeginPrintCallback
-> IO (FunPtr C_PrintOperationBeginPrintCallback)
mk_PrintOperationBeginPrintCallback C_PrintOperationBeginPrintCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-print" FunPtr C_PrintOperationBeginPrintCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationBeginPrint :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationBeginPrintCallback) -> m SignalHandlerId
afterPrintOperationBeginPrint :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationBeginPrintCallback)
-> m SignalHandlerId
afterPrintOperationBeginPrint a
obj (?self::a) => PrintOperationBeginPrintCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationBeginPrintCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationBeginPrintCallback
cb
let wrapped' :: C_PrintOperationBeginPrintCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationBeginPrintCallback a -> PrintOperationBeginPrintCallback
wrapped
FunPtr C_PrintOperationBeginPrintCallback
wrapped'' <- C_PrintOperationBeginPrintCallback
-> IO (FunPtr C_PrintOperationBeginPrintCallback)
mk_PrintOperationBeginPrintCallback C_PrintOperationBeginPrintCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"begin-print" FunPtr C_PrintOperationBeginPrintCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationBeginPrintSignalInfo
instance SignalInfo PrintOperationBeginPrintSignalInfo where
type HaskellCallbackType PrintOperationBeginPrintSignalInfo = PrintOperationBeginPrintCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationBeginPrintCallback cb
cb'' <- mk_PrintOperationBeginPrintCallback cb'
connectSignalFunPtr obj "begin-print" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::begin-print"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:beginPrint"})
#endif
type PrintOperationCreateCustomWidgetCallback =
IO GObject.Object.Object
type C_PrintOperationCreateCustomWidgetCallback =
Ptr PrintOperation ->
Ptr () ->
IO (Ptr GObject.Object.Object)
foreign import ccall "wrapper"
mk_PrintOperationCreateCustomWidgetCallback :: C_PrintOperationCreateCustomWidgetCallback -> IO (FunPtr C_PrintOperationCreateCustomWidgetCallback)
wrap_PrintOperationCreateCustomWidgetCallback ::
GObject a => (a -> PrintOperationCreateCustomWidgetCallback) ->
C_PrintOperationCreateCustomWidgetCallback
wrap_PrintOperationCreateCustomWidgetCallback :: forall a.
GObject a =>
(a -> PrintOperationCreateCustomWidgetCallback)
-> C_PrintOperationCreateCustomWidgetCallback
wrap_PrintOperationCreateCustomWidgetCallback a -> PrintOperationCreateCustomWidgetCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr ()
_ = do
Object
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationCreateCustomWidgetCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self)
Ptr Object
result' <- forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject Object
result
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
result'
onPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationCreateCustomWidgetCallback) -> m SignalHandlerId
onPrintOperationCreateCustomWidget :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationCreateCustomWidgetCallback)
-> m SignalHandlerId
onPrintOperationCreateCustomWidget a
obj (?self::a) => PrintOperationCreateCustomWidgetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationCreateCustomWidgetCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationCreateCustomWidgetCallback
cb
let wrapped' :: C_PrintOperationCreateCustomWidgetCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationCreateCustomWidgetCallback)
-> C_PrintOperationCreateCustomWidgetCallback
wrap_PrintOperationCreateCustomWidgetCallback a -> PrintOperationCreateCustomWidgetCallback
wrapped
FunPtr C_PrintOperationCreateCustomWidgetCallback
wrapped'' <- C_PrintOperationCreateCustomWidgetCallback
-> IO (FunPtr C_PrintOperationCreateCustomWidgetCallback)
mk_PrintOperationCreateCustomWidgetCallback C_PrintOperationCreateCustomWidgetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-custom-widget" FunPtr C_PrintOperationCreateCustomWidgetCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationCreateCustomWidgetCallback) -> m SignalHandlerId
afterPrintOperationCreateCustomWidget :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationCreateCustomWidgetCallback)
-> m SignalHandlerId
afterPrintOperationCreateCustomWidget a
obj (?self::a) => PrintOperationCreateCustomWidgetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationCreateCustomWidgetCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationCreateCustomWidgetCallback
cb
let wrapped' :: C_PrintOperationCreateCustomWidgetCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationCreateCustomWidgetCallback)
-> C_PrintOperationCreateCustomWidgetCallback
wrap_PrintOperationCreateCustomWidgetCallback a -> PrintOperationCreateCustomWidgetCallback
wrapped
FunPtr C_PrintOperationCreateCustomWidgetCallback
wrapped'' <- C_PrintOperationCreateCustomWidgetCallback
-> IO (FunPtr C_PrintOperationCreateCustomWidgetCallback)
mk_PrintOperationCreateCustomWidgetCallback C_PrintOperationCreateCustomWidgetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-custom-widget" FunPtr C_PrintOperationCreateCustomWidgetCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationCreateCustomWidgetSignalInfo
instance SignalInfo PrintOperationCreateCustomWidgetSignalInfo where
type HaskellCallbackType PrintOperationCreateCustomWidgetSignalInfo = PrintOperationCreateCustomWidgetCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb
cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'
connectSignalFunPtr obj "create-custom-widget" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::create-custom-widget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:createCustomWidget"})
#endif
type PrintOperationCustomWidgetApplyCallback =
Gtk.Widget.Widget
-> IO ()
type C_PrintOperationCustomWidgetApplyCallback =
Ptr PrintOperation ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationCustomWidgetApplyCallback :: C_PrintOperationCustomWidgetApplyCallback -> IO (FunPtr C_PrintOperationCustomWidgetApplyCallback)
wrap_PrintOperationCustomWidgetApplyCallback ::
GObject a => (a -> PrintOperationCustomWidgetApplyCallback) ->
C_PrintOperationCustomWidgetApplyCallback
wrap_PrintOperationCustomWidgetApplyCallback :: forall a.
GObject a =>
(a -> PrintOperationCustomWidgetApplyCallback)
-> C_PrintOperationCustomWidgetApplyCallback
wrap_PrintOperationCustomWidgetApplyCallback a -> PrintOperationCustomWidgetApplyCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr Widget
widget Ptr ()
_ = do
Widget
widget' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationCustomWidgetApplyCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) Widget
widget'
onPrintOperationCustomWidgetApply :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationCustomWidgetApplyCallback) -> m SignalHandlerId
onPrintOperationCustomWidgetApply :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationCustomWidgetApplyCallback)
-> m SignalHandlerId
onPrintOperationCustomWidgetApply a
obj (?self::a) => PrintOperationCustomWidgetApplyCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationCustomWidgetApplyCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationCustomWidgetApplyCallback
cb
let wrapped' :: C_PrintOperationCustomWidgetApplyCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationCustomWidgetApplyCallback)
-> C_PrintOperationCustomWidgetApplyCallback
wrap_PrintOperationCustomWidgetApplyCallback a -> PrintOperationCustomWidgetApplyCallback
wrapped
FunPtr C_PrintOperationCustomWidgetApplyCallback
wrapped'' <- C_PrintOperationCustomWidgetApplyCallback
-> IO (FunPtr C_PrintOperationCustomWidgetApplyCallback)
mk_PrintOperationCustomWidgetApplyCallback C_PrintOperationCustomWidgetApplyCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"custom-widget-apply" FunPtr C_PrintOperationCustomWidgetApplyCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationCustomWidgetApply :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationCustomWidgetApplyCallback) -> m SignalHandlerId
afterPrintOperationCustomWidgetApply :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationCustomWidgetApplyCallback)
-> m SignalHandlerId
afterPrintOperationCustomWidgetApply a
obj (?self::a) => PrintOperationCustomWidgetApplyCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationCustomWidgetApplyCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationCustomWidgetApplyCallback
cb
let wrapped' :: C_PrintOperationCustomWidgetApplyCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationCustomWidgetApplyCallback)
-> C_PrintOperationCustomWidgetApplyCallback
wrap_PrintOperationCustomWidgetApplyCallback a -> PrintOperationCustomWidgetApplyCallback
wrapped
FunPtr C_PrintOperationCustomWidgetApplyCallback
wrapped'' <- C_PrintOperationCustomWidgetApplyCallback
-> IO (FunPtr C_PrintOperationCustomWidgetApplyCallback)
mk_PrintOperationCustomWidgetApplyCallback C_PrintOperationCustomWidgetApplyCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"custom-widget-apply" FunPtr C_PrintOperationCustomWidgetApplyCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationCustomWidgetApplySignalInfo
instance SignalInfo PrintOperationCustomWidgetApplySignalInfo where
type HaskellCallbackType PrintOperationCustomWidgetApplySignalInfo = PrintOperationCustomWidgetApplyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationCustomWidgetApplyCallback cb
cb'' <- mk_PrintOperationCustomWidgetApplyCallback cb'
connectSignalFunPtr obj "custom-widget-apply" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::custom-widget-apply"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:customWidgetApply"})
#endif
type PrintOperationDoneCallback =
Gtk.Enums.PrintOperationResult
-> IO ()
type C_PrintOperationDoneCallback =
Ptr PrintOperation ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationDoneCallback :: C_PrintOperationDoneCallback -> IO (FunPtr C_PrintOperationDoneCallback)
wrap_PrintOperationDoneCallback ::
GObject a => (a -> PrintOperationDoneCallback) ->
C_PrintOperationDoneCallback
wrap_PrintOperationDoneCallback :: forall a.
GObject a =>
(a -> PrintOperationDoneCallback) -> C_PrintOperationDoneCallback
wrap_PrintOperationDoneCallback a -> PrintOperationDoneCallback
gi'cb Ptr PrintOperation
gi'selfPtr CUInt
result_ Ptr ()
_ = do
let result_' :: PrintOperationResult
result_' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result_
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationDoneCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintOperationResult
result_'
onPrintOperationDone :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationDoneCallback) -> m SignalHandlerId
onPrintOperationDone :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationDoneCallback) -> m SignalHandlerId
onPrintOperationDone a
obj (?self::a) => PrintOperationDoneCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationDoneCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationDoneCallback
cb
let wrapped' :: C_PrintOperationDoneCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationDoneCallback) -> C_PrintOperationDoneCallback
wrap_PrintOperationDoneCallback a -> PrintOperationDoneCallback
wrapped
FunPtr C_PrintOperationDoneCallback
wrapped'' <- C_PrintOperationDoneCallback
-> IO (FunPtr C_PrintOperationDoneCallback)
mk_PrintOperationDoneCallback C_PrintOperationDoneCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"done" FunPtr C_PrintOperationDoneCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationDone :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationDoneCallback) -> m SignalHandlerId
afterPrintOperationDone :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationDoneCallback) -> m SignalHandlerId
afterPrintOperationDone a
obj (?self::a) => PrintOperationDoneCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationDoneCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationDoneCallback
cb
let wrapped' :: C_PrintOperationDoneCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationDoneCallback) -> C_PrintOperationDoneCallback
wrap_PrintOperationDoneCallback a -> PrintOperationDoneCallback
wrapped
FunPtr C_PrintOperationDoneCallback
wrapped'' <- C_PrintOperationDoneCallback
-> IO (FunPtr C_PrintOperationDoneCallback)
mk_PrintOperationDoneCallback C_PrintOperationDoneCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"done" FunPtr C_PrintOperationDoneCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationDoneSignalInfo
instance SignalInfo PrintOperationDoneSignalInfo where
type HaskellCallbackType PrintOperationDoneSignalInfo = PrintOperationDoneCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationDoneCallback cb
cb'' <- mk_PrintOperationDoneCallback cb'
connectSignalFunPtr obj "done" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::done"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:done"})
#endif
type PrintOperationDrawPageCallback =
Gtk.PrintContext.PrintContext
-> Int32
-> IO ()
type C_PrintOperationDrawPageCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintContext.PrintContext ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationDrawPageCallback :: C_PrintOperationDrawPageCallback -> IO (FunPtr C_PrintOperationDrawPageCallback)
wrap_PrintOperationDrawPageCallback ::
GObject a => (a -> PrintOperationDrawPageCallback) ->
C_PrintOperationDrawPageCallback
wrap_PrintOperationDrawPageCallback :: forall a.
GObject a =>
(a -> PrintOperationDrawPageCallback)
-> C_PrintOperationDrawPageCallback
wrap_PrintOperationDrawPageCallback a -> PrintOperationDrawPageCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintContext
context Int32
pageNr Ptr ()
_ = do
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationDrawPageCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintContext
context' Int32
pageNr
onPrintOperationDrawPage :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationDrawPageCallback) -> m SignalHandlerId
onPrintOperationDrawPage :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationDrawPageCallback)
-> m SignalHandlerId
onPrintOperationDrawPage a
obj (?self::a) => PrintOperationDrawPageCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationDrawPageCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationDrawPageCallback
cb
let wrapped' :: C_PrintOperationDrawPageCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationDrawPageCallback)
-> C_PrintOperationDrawPageCallback
wrap_PrintOperationDrawPageCallback a -> PrintOperationDrawPageCallback
wrapped
FunPtr C_PrintOperationDrawPageCallback
wrapped'' <- C_PrintOperationDrawPageCallback
-> IO (FunPtr C_PrintOperationDrawPageCallback)
mk_PrintOperationDrawPageCallback C_PrintOperationDrawPageCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"draw-page" FunPtr C_PrintOperationDrawPageCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationDrawPage :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationDrawPageCallback) -> m SignalHandlerId
afterPrintOperationDrawPage :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationDrawPageCallback)
-> m SignalHandlerId
afterPrintOperationDrawPage a
obj (?self::a) => PrintOperationDrawPageCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationDrawPageCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationDrawPageCallback
cb
let wrapped' :: C_PrintOperationDrawPageCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationDrawPageCallback)
-> C_PrintOperationDrawPageCallback
wrap_PrintOperationDrawPageCallback a -> PrintOperationDrawPageCallback
wrapped
FunPtr C_PrintOperationDrawPageCallback
wrapped'' <- C_PrintOperationDrawPageCallback
-> IO (FunPtr C_PrintOperationDrawPageCallback)
mk_PrintOperationDrawPageCallback C_PrintOperationDrawPageCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"draw-page" FunPtr C_PrintOperationDrawPageCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationDrawPageSignalInfo
instance SignalInfo PrintOperationDrawPageSignalInfo where
type HaskellCallbackType PrintOperationDrawPageSignalInfo = PrintOperationDrawPageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationDrawPageCallback cb
cb'' <- mk_PrintOperationDrawPageCallback cb'
connectSignalFunPtr obj "draw-page" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::draw-page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:drawPage"})
#endif
type PrintOperationEndPrintCallback =
Gtk.PrintContext.PrintContext
-> IO ()
type C_PrintOperationEndPrintCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationEndPrintCallback :: C_PrintOperationEndPrintCallback -> IO (FunPtr C_PrintOperationEndPrintCallback)
wrap_PrintOperationEndPrintCallback ::
GObject a => (a -> PrintOperationEndPrintCallback) ->
C_PrintOperationEndPrintCallback
wrap_PrintOperationEndPrintCallback :: forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationEndPrintCallback a -> PrintOperationBeginPrintCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintContext
context Ptr ()
_ = do
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationBeginPrintCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintContext
context'
onPrintOperationEndPrint :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationEndPrintCallback) -> m SignalHandlerId
onPrintOperationEndPrint :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationBeginPrintCallback)
-> m SignalHandlerId
onPrintOperationEndPrint a
obj (?self::a) => PrintOperationBeginPrintCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationBeginPrintCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationBeginPrintCallback
cb
let wrapped' :: C_PrintOperationBeginPrintCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationEndPrintCallback a -> PrintOperationBeginPrintCallback
wrapped
FunPtr C_PrintOperationBeginPrintCallback
wrapped'' <- C_PrintOperationBeginPrintCallback
-> IO (FunPtr C_PrintOperationBeginPrintCallback)
mk_PrintOperationEndPrintCallback C_PrintOperationBeginPrintCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-print" FunPtr C_PrintOperationBeginPrintCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationEndPrint :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationEndPrintCallback) -> m SignalHandlerId
afterPrintOperationEndPrint :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationBeginPrintCallback)
-> m SignalHandlerId
afterPrintOperationEndPrint a
obj (?self::a) => PrintOperationBeginPrintCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationBeginPrintCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationBeginPrintCallback
cb
let wrapped' :: C_PrintOperationBeginPrintCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationBeginPrintCallback)
-> C_PrintOperationBeginPrintCallback
wrap_PrintOperationEndPrintCallback a -> PrintOperationBeginPrintCallback
wrapped
FunPtr C_PrintOperationBeginPrintCallback
wrapped'' <- C_PrintOperationBeginPrintCallback
-> IO (FunPtr C_PrintOperationBeginPrintCallback)
mk_PrintOperationEndPrintCallback C_PrintOperationBeginPrintCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-print" FunPtr C_PrintOperationBeginPrintCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationEndPrintSignalInfo
instance SignalInfo PrintOperationEndPrintSignalInfo where
type HaskellCallbackType PrintOperationEndPrintSignalInfo = PrintOperationEndPrintCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationEndPrintCallback cb
cb'' <- mk_PrintOperationEndPrintCallback cb'
connectSignalFunPtr obj "end-print" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::end-print"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:endPrint"})
#endif
type PrintOperationPaginateCallback =
Gtk.PrintContext.PrintContext
-> IO Bool
type C_PrintOperationPaginateCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PrintOperationPaginateCallback :: C_PrintOperationPaginateCallback -> IO (FunPtr C_PrintOperationPaginateCallback)
wrap_PrintOperationPaginateCallback ::
GObject a => (a -> PrintOperationPaginateCallback) ->
C_PrintOperationPaginateCallback
wrap_PrintOperationPaginateCallback :: forall a.
GObject a =>
(a -> PrintOperationPaginateCallback)
-> C_PrintOperationPaginateCallback
wrap_PrintOperationPaginateCallback a -> PrintOperationPaginateCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintContext
context Ptr ()
_ = do
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationPaginateCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintContext
context'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPrintOperationPaginate :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationPaginateCallback) -> m SignalHandlerId
onPrintOperationPaginate :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationPaginateCallback)
-> m SignalHandlerId
onPrintOperationPaginate a
obj (?self::a) => PrintOperationPaginateCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationPaginateCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationPaginateCallback
cb
let wrapped' :: C_PrintOperationPaginateCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationPaginateCallback)
-> C_PrintOperationPaginateCallback
wrap_PrintOperationPaginateCallback a -> PrintOperationPaginateCallback
wrapped
FunPtr C_PrintOperationPaginateCallback
wrapped'' <- C_PrintOperationPaginateCallback
-> IO (FunPtr C_PrintOperationPaginateCallback)
mk_PrintOperationPaginateCallback C_PrintOperationPaginateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paginate" FunPtr C_PrintOperationPaginateCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationPaginate :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationPaginateCallback) -> m SignalHandlerId
afterPrintOperationPaginate :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationPaginateCallback)
-> m SignalHandlerId
afterPrintOperationPaginate a
obj (?self::a) => PrintOperationPaginateCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationPaginateCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationPaginateCallback
cb
let wrapped' :: C_PrintOperationPaginateCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationPaginateCallback)
-> C_PrintOperationPaginateCallback
wrap_PrintOperationPaginateCallback a -> PrintOperationPaginateCallback
wrapped
FunPtr C_PrintOperationPaginateCallback
wrapped'' <- C_PrintOperationPaginateCallback
-> IO (FunPtr C_PrintOperationPaginateCallback)
mk_PrintOperationPaginateCallback C_PrintOperationPaginateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paginate" FunPtr C_PrintOperationPaginateCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationPaginateSignalInfo
instance SignalInfo PrintOperationPaginateSignalInfo where
type HaskellCallbackType PrintOperationPaginateSignalInfo = PrintOperationPaginateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationPaginateCallback cb
cb'' <- mk_PrintOperationPaginateCallback cb'
connectSignalFunPtr obj "paginate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::paginate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:paginate"})
#endif
type PrintOperationPreviewCallback =
Gtk.PrintOperationPreview.PrintOperationPreview
-> Gtk.PrintContext.PrintContext
-> Maybe Gtk.Window.Window
-> IO Bool
type C_PrintOperationPreviewCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintOperationPreview.PrintOperationPreview ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PrintOperationPreviewCallback :: C_PrintOperationPreviewCallback -> IO (FunPtr C_PrintOperationPreviewCallback)
wrap_PrintOperationPreviewCallback ::
GObject a => (a -> PrintOperationPreviewCallback) ->
C_PrintOperationPreviewCallback
wrap_PrintOperationPreviewCallback :: forall a.
GObject a =>
(a -> PrintOperationPreviewCallback)
-> C_PrintOperationPreviewCallback
wrap_PrintOperationPreviewCallback a -> PrintOperationPreviewCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintOperationPreview
preview Ptr PrintContext
context Ptr Window
parent Ptr ()
_ = do
PrintOperationPreview
preview' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintOperationPreview -> PrintOperationPreview
Gtk.PrintOperationPreview.PrintOperationPreview) Ptr PrintOperationPreview
preview
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
Maybe Window
maybeParent <-
if Ptr Window
parent forall a. Eq a => a -> a -> Bool
== forall a. Ptr a
nullPtr
then forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
Nothing
else do
Window
parent' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
parent
forall (m :: * -> *) a. Monad m => a -> m a
return forall a b. (a -> b) -> a -> b
$ forall a. a -> Maybe a
Just Window
parent'
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationPreviewCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintOperationPreview
preview' PrintContext
context' Maybe Window
maybeParent
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPrintOperationPreview :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationPreviewCallback) -> m SignalHandlerId
onPrintOperationPreview :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationPreviewCallback)
-> m SignalHandlerId
onPrintOperationPreview a
obj (?self::a) => PrintOperationPreviewCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationPreviewCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationPreviewCallback
cb
let wrapped' :: C_PrintOperationPreviewCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationPreviewCallback)
-> C_PrintOperationPreviewCallback
wrap_PrintOperationPreviewCallback a -> PrintOperationPreviewCallback
wrapped
FunPtr C_PrintOperationPreviewCallback
wrapped'' <- C_PrintOperationPreviewCallback
-> IO (FunPtr C_PrintOperationPreviewCallback)
mk_PrintOperationPreviewCallback C_PrintOperationPreviewCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preview" FunPtr C_PrintOperationPreviewCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationPreview :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationPreviewCallback) -> m SignalHandlerId
afterPrintOperationPreview :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationPreviewCallback)
-> m SignalHandlerId
afterPrintOperationPreview a
obj (?self::a) => PrintOperationPreviewCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationPreviewCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationPreviewCallback
cb
let wrapped' :: C_PrintOperationPreviewCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationPreviewCallback)
-> C_PrintOperationPreviewCallback
wrap_PrintOperationPreviewCallback a -> PrintOperationPreviewCallback
wrapped
FunPtr C_PrintOperationPreviewCallback
wrapped'' <- C_PrintOperationPreviewCallback
-> IO (FunPtr C_PrintOperationPreviewCallback)
mk_PrintOperationPreviewCallback C_PrintOperationPreviewCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preview" FunPtr C_PrintOperationPreviewCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationPreviewSignalInfo
instance SignalInfo PrintOperationPreviewSignalInfo where
type HaskellCallbackType PrintOperationPreviewSignalInfo = PrintOperationPreviewCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationPreviewCallback cb
cb'' <- mk_PrintOperationPreviewCallback cb'
connectSignalFunPtr obj "preview" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::preview"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:preview"})
#endif
type PrintOperationRequestPageSetupCallback =
Gtk.PrintContext.PrintContext
-> Int32
-> Gtk.PageSetup.PageSetup
-> IO ()
type C_PrintOperationRequestPageSetupCallback =
Ptr PrintOperation ->
Ptr Gtk.PrintContext.PrintContext ->
Int32 ->
Ptr Gtk.PageSetup.PageSetup ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationRequestPageSetupCallback :: C_PrintOperationRequestPageSetupCallback -> IO (FunPtr C_PrintOperationRequestPageSetupCallback)
wrap_PrintOperationRequestPageSetupCallback ::
GObject a => (a -> PrintOperationRequestPageSetupCallback) ->
C_PrintOperationRequestPageSetupCallback
wrap_PrintOperationRequestPageSetupCallback :: forall a.
GObject a =>
(a -> PrintOperationRequestPageSetupCallback)
-> C_PrintOperationRequestPageSetupCallback
wrap_PrintOperationRequestPageSetupCallback a -> PrintOperationRequestPageSetupCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr PrintContext
context Int32
pageNr Ptr PageSetup
setup Ptr ()
_ = do
PrintContext
context' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintContext -> PrintContext
Gtk.PrintContext.PrintContext) Ptr PrintContext
context
PageSetup
setup' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PageSetup -> PageSetup
Gtk.PageSetup.PageSetup) Ptr PageSetup
setup
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationRequestPageSetupCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) PrintContext
context' Int32
pageNr PageSetup
setup'
onPrintOperationRequestPageSetup :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationRequestPageSetupCallback) -> m SignalHandlerId
onPrintOperationRequestPageSetup :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationRequestPageSetupCallback)
-> m SignalHandlerId
onPrintOperationRequestPageSetup a
obj (?self::a) => PrintOperationRequestPageSetupCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationRequestPageSetupCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationRequestPageSetupCallback
cb
let wrapped' :: C_PrintOperationRequestPageSetupCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationRequestPageSetupCallback)
-> C_PrintOperationRequestPageSetupCallback
wrap_PrintOperationRequestPageSetupCallback a -> PrintOperationRequestPageSetupCallback
wrapped
FunPtr C_PrintOperationRequestPageSetupCallback
wrapped'' <- C_PrintOperationRequestPageSetupCallback
-> IO (FunPtr C_PrintOperationRequestPageSetupCallback)
mk_PrintOperationRequestPageSetupCallback C_PrintOperationRequestPageSetupCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-page-setup" FunPtr C_PrintOperationRequestPageSetupCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationRequestPageSetup :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationRequestPageSetupCallback) -> m SignalHandlerId
afterPrintOperationRequestPageSetup :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationRequestPageSetupCallback)
-> m SignalHandlerId
afterPrintOperationRequestPageSetup a
obj (?self::a) => PrintOperationRequestPageSetupCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationRequestPageSetupCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationRequestPageSetupCallback
cb
let wrapped' :: C_PrintOperationRequestPageSetupCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationRequestPageSetupCallback)
-> C_PrintOperationRequestPageSetupCallback
wrap_PrintOperationRequestPageSetupCallback a -> PrintOperationRequestPageSetupCallback
wrapped
FunPtr C_PrintOperationRequestPageSetupCallback
wrapped'' <- C_PrintOperationRequestPageSetupCallback
-> IO (FunPtr C_PrintOperationRequestPageSetupCallback)
mk_PrintOperationRequestPageSetupCallback C_PrintOperationRequestPageSetupCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"request-page-setup" FunPtr C_PrintOperationRequestPageSetupCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationRequestPageSetupSignalInfo
instance SignalInfo PrintOperationRequestPageSetupSignalInfo where
type HaskellCallbackType PrintOperationRequestPageSetupSignalInfo = PrintOperationRequestPageSetupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationRequestPageSetupCallback cb
cb'' <- mk_PrintOperationRequestPageSetupCallback cb'
connectSignalFunPtr obj "request-page-setup" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::request-page-setup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:requestPageSetup"})
#endif
type PrintOperationStatusChangedCallback =
IO ()
type C_PrintOperationStatusChangedCallback =
Ptr PrintOperation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationStatusChangedCallback :: C_PrintOperationStatusChangedCallback -> IO (FunPtr C_PrintOperationStatusChangedCallback)
wrap_PrintOperationStatusChangedCallback ::
GObject a => (a -> PrintOperationStatusChangedCallback) ->
C_PrintOperationStatusChangedCallback
wrap_PrintOperationStatusChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_PrintOperationStatusChangedCallback
wrap_PrintOperationStatusChangedCallback a -> IO ()
gi'cb Ptr PrintOperation
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self)
onPrintOperationStatusChanged :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationStatusChangedCallback) -> m SignalHandlerId
onPrintOperationStatusChanged :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onPrintOperationStatusChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_PrintOperationStatusChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_PrintOperationStatusChangedCallback
wrap_PrintOperationStatusChangedCallback a -> IO ()
wrapped
FunPtr C_PrintOperationStatusChangedCallback
wrapped'' <- C_PrintOperationStatusChangedCallback
-> IO (FunPtr C_PrintOperationStatusChangedCallback)
mk_PrintOperationStatusChangedCallback C_PrintOperationStatusChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"status-changed" FunPtr C_PrintOperationStatusChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationStatusChanged :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationStatusChangedCallback) -> m SignalHandlerId
afterPrintOperationStatusChanged :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterPrintOperationStatusChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_PrintOperationStatusChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_PrintOperationStatusChangedCallback
wrap_PrintOperationStatusChangedCallback a -> IO ()
wrapped
FunPtr C_PrintOperationStatusChangedCallback
wrapped'' <- C_PrintOperationStatusChangedCallback
-> IO (FunPtr C_PrintOperationStatusChangedCallback)
mk_PrintOperationStatusChangedCallback C_PrintOperationStatusChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"status-changed" FunPtr C_PrintOperationStatusChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationStatusChangedSignalInfo
instance SignalInfo PrintOperationStatusChangedSignalInfo where
type HaskellCallbackType PrintOperationStatusChangedSignalInfo = PrintOperationStatusChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationStatusChangedCallback cb
cb'' <- mk_PrintOperationStatusChangedCallback cb'
connectSignalFunPtr obj "status-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::status-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:statusChanged"})
#endif
type PrintOperationUpdateCustomWidgetCallback =
Gtk.Widget.Widget
-> Gtk.PageSetup.PageSetup
-> Gtk.PrintSettings.PrintSettings
-> IO ()
type C_PrintOperationUpdateCustomWidgetCallback =
Ptr PrintOperation ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.PageSetup.PageSetup ->
Ptr Gtk.PrintSettings.PrintSettings ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationUpdateCustomWidgetCallback :: C_PrintOperationUpdateCustomWidgetCallback -> IO (FunPtr C_PrintOperationUpdateCustomWidgetCallback)
wrap_PrintOperationUpdateCustomWidgetCallback ::
GObject a => (a -> PrintOperationUpdateCustomWidgetCallback) ->
C_PrintOperationUpdateCustomWidgetCallback
wrap_PrintOperationUpdateCustomWidgetCallback :: forall a.
GObject a =>
(a -> PrintOperationUpdateCustomWidgetCallback)
-> C_PrintOperationUpdateCustomWidgetCallback
wrap_PrintOperationUpdateCustomWidgetCallback a -> PrintOperationUpdateCustomWidgetCallback
gi'cb Ptr PrintOperation
gi'selfPtr Ptr Widget
widget Ptr PageSetup
setup Ptr PrintSettings
settings Ptr ()
_ = do
Widget
widget' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
PageSetup
setup' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PageSetup -> PageSetup
Gtk.PageSetup.PageSetup) Ptr PageSetup
setup
PrintSettings
settings' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintSettings -> PrintSettings
Gtk.PrintSettings.PrintSettings) Ptr PrintSettings
settings
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PrintOperation
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \PrintOperation
gi'self -> a -> PrintOperationUpdateCustomWidgetCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce PrintOperation
gi'self) Widget
widget' PageSetup
setup' PrintSettings
settings'
onPrintOperationUpdateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationUpdateCustomWidgetCallback) -> m SignalHandlerId
onPrintOperationUpdateCustomWidget :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationUpdateCustomWidgetCallback)
-> m SignalHandlerId
onPrintOperationUpdateCustomWidget a
obj (?self::a) => PrintOperationUpdateCustomWidgetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationUpdateCustomWidgetCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationUpdateCustomWidgetCallback
cb
let wrapped' :: C_PrintOperationUpdateCustomWidgetCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationUpdateCustomWidgetCallback)
-> C_PrintOperationUpdateCustomWidgetCallback
wrap_PrintOperationUpdateCustomWidgetCallback a -> PrintOperationUpdateCustomWidgetCallback
wrapped
FunPtr C_PrintOperationUpdateCustomWidgetCallback
wrapped'' <- C_PrintOperationUpdateCustomWidgetCallback
-> IO (FunPtr C_PrintOperationUpdateCustomWidgetCallback)
mk_PrintOperationUpdateCustomWidgetCallback C_PrintOperationUpdateCustomWidgetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-custom-widget" FunPtr C_PrintOperationUpdateCustomWidgetCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterPrintOperationUpdateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> ((?self :: a) => PrintOperationUpdateCustomWidgetCallback) -> m SignalHandlerId
afterPrintOperationUpdateCustomWidget :: forall a (m :: * -> *).
(IsPrintOperation a, MonadIO m) =>
a
-> ((?self::a) => PrintOperationUpdateCustomWidgetCallback)
-> m SignalHandlerId
afterPrintOperationUpdateCustomWidget a
obj (?self::a) => PrintOperationUpdateCustomWidgetCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> PrintOperationUpdateCustomWidgetCallback
wrapped a
self = let ?self = a
self in (?self::a) => PrintOperationUpdateCustomWidgetCallback
cb
let wrapped' :: C_PrintOperationUpdateCustomWidgetCallback
wrapped' = forall a.
GObject a =>
(a -> PrintOperationUpdateCustomWidgetCallback)
-> C_PrintOperationUpdateCustomWidgetCallback
wrap_PrintOperationUpdateCustomWidgetCallback a -> PrintOperationUpdateCustomWidgetCallback
wrapped
FunPtr C_PrintOperationUpdateCustomWidgetCallback
wrapped'' <- C_PrintOperationUpdateCustomWidgetCallback
-> IO (FunPtr C_PrintOperationUpdateCustomWidgetCallback)
mk_PrintOperationUpdateCustomWidgetCallback C_PrintOperationUpdateCustomWidgetCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-custom-widget" FunPtr C_PrintOperationUpdateCustomWidgetCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PrintOperationUpdateCustomWidgetSignalInfo
instance SignalInfo PrintOperationUpdateCustomWidgetSignalInfo where
type HaskellCallbackType PrintOperationUpdateCustomWidgetSignalInfo = PrintOperationUpdateCustomWidgetCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PrintOperationUpdateCustomWidgetCallback cb
cb'' <- mk_PrintOperationUpdateCustomWidgetCallback cb'
connectSignalFunPtr obj "update-custom-widget" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation::update-custom-widget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:signal:updateCustomWidget"})
#endif
getPrintOperationAllowAsync :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationAllowAsync :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationAllowAsync o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-async"
setPrintOperationAllowAsync :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationAllowAsync :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationAllowAsync o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-async" Bool
val
constructPrintOperationAllowAsync :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationAllowAsync :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationAllowAsync Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-async" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationAllowAsyncPropertyInfo
instance AttrInfo PrintOperationAllowAsyncPropertyInfo where
type AttrAllowedOps PrintOperationAllowAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationAllowAsyncPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationAllowAsyncPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationAllowAsyncPropertyInfo = (~) Bool
type AttrTransferType PrintOperationAllowAsyncPropertyInfo = Bool
type AttrGetType PrintOperationAllowAsyncPropertyInfo = Bool
type AttrLabel PrintOperationAllowAsyncPropertyInfo = "allow-async"
type AttrOrigin PrintOperationAllowAsyncPropertyInfo = PrintOperation
attrGet = getPrintOperationAllowAsync
attrSet = setPrintOperationAllowAsync
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationAllowAsync
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.allowAsync"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:allowAsync"
})
#endif
getPrintOperationCurrentPage :: (MonadIO m, IsPrintOperation o) => o -> m Int32
getPrintOperationCurrentPage :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Int32
getPrintOperationCurrentPage o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"current-page"
setPrintOperationCurrentPage :: (MonadIO m, IsPrintOperation o) => o -> Int32 -> m ()
setPrintOperationCurrentPage :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Int32 -> m ()
setPrintOperationCurrentPage o
obj Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"current-page" Int32
val
constructPrintOperationCurrentPage :: (IsPrintOperation o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructPrintOperationCurrentPage :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructPrintOperationCurrentPage Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"current-page" Int32
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationCurrentPagePropertyInfo
instance AttrInfo PrintOperationCurrentPagePropertyInfo where
type AttrAllowedOps PrintOperationCurrentPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationCurrentPagePropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationCurrentPagePropertyInfo = (~) Int32
type AttrTransferTypeConstraint PrintOperationCurrentPagePropertyInfo = (~) Int32
type AttrTransferType PrintOperationCurrentPagePropertyInfo = Int32
type AttrGetType PrintOperationCurrentPagePropertyInfo = Int32
type AttrLabel PrintOperationCurrentPagePropertyInfo = "current-page"
type AttrOrigin PrintOperationCurrentPagePropertyInfo = PrintOperation
attrGet = getPrintOperationCurrentPage
attrSet = setPrintOperationCurrentPage
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationCurrentPage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.currentPage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:currentPage"
})
#endif
getPrintOperationCustomTabLabel :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe T.Text)
getPrintOperationCustomTabLabel :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m (Maybe Text)
getPrintOperationCustomTabLabel o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"custom-tab-label"
setPrintOperationCustomTabLabel :: (MonadIO m, IsPrintOperation o) => o -> T.Text -> m ()
setPrintOperationCustomTabLabel :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Text -> m ()
setPrintOperationCustomTabLabel o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"custom-tab-label" (forall a. a -> Maybe a
Just Text
val)
constructPrintOperationCustomTabLabel :: (IsPrintOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPrintOperationCustomTabLabel :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPrintOperationCustomTabLabel Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"custom-tab-label" (forall a. a -> Maybe a
P.Just Text
val)
clearPrintOperationCustomTabLabel :: (MonadIO m, IsPrintOperation o) => o -> m ()
clearPrintOperationCustomTabLabel :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m ()
clearPrintOperationCustomTabLabel o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"custom-tab-label" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data PrintOperationCustomTabLabelPropertyInfo
instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where
type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text
type AttrTransferType PrintOperationCustomTabLabelPropertyInfo = T.Text
type AttrGetType PrintOperationCustomTabLabelPropertyInfo = (Maybe T.Text)
type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "custom-tab-label"
type AttrOrigin PrintOperationCustomTabLabelPropertyInfo = PrintOperation
attrGet = getPrintOperationCustomTabLabel
attrSet = setPrintOperationCustomTabLabel
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationCustomTabLabel
attrClear = clearPrintOperationCustomTabLabel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.customTabLabel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:customTabLabel"
})
#endif
getPrintOperationDefaultPageSetup :: (MonadIO m, IsPrintOperation o) => o -> m Gtk.PageSetup.PageSetup
getPrintOperationDefaultPageSetup :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m PageSetup
getPrintOperationDefaultPageSetup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getPrintOperationDefaultPageSetup" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"default-page-setup" ManagedPtr PageSetup -> PageSetup
Gtk.PageSetup.PageSetup
setPrintOperationDefaultPageSetup :: (MonadIO m, IsPrintOperation o, Gtk.PageSetup.IsPageSetup a) => o -> a -> m ()
setPrintOperationDefaultPageSetup :: forall (m :: * -> *) o a.
(MonadIO m, IsPrintOperation o, IsPageSetup a) =>
o -> a -> m ()
setPrintOperationDefaultPageSetup o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"default-page-setup" (forall a. a -> Maybe a
Just a
val)
constructPrintOperationDefaultPageSetup :: (IsPrintOperation o, MIO.MonadIO m, Gtk.PageSetup.IsPageSetup a) => a -> m (GValueConstruct o)
constructPrintOperationDefaultPageSetup :: forall o (m :: * -> *) a.
(IsPrintOperation o, MonadIO m, IsPageSetup a) =>
a -> m (GValueConstruct o)
constructPrintOperationDefaultPageSetup a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"default-page-setup" (forall a. a -> Maybe a
P.Just a
val)
clearPrintOperationDefaultPageSetup :: (MonadIO m, IsPrintOperation o) => o -> m ()
clearPrintOperationDefaultPageSetup :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m ()
clearPrintOperationDefaultPageSetup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"default-page-setup" (forall a. Maybe a
Nothing :: Maybe Gtk.PageSetup.PageSetup)
#if defined(ENABLE_OVERLOADING)
data PrintOperationDefaultPageSetupPropertyInfo
instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where
type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = Gtk.PageSetup.IsPageSetup
type AttrTransferTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = Gtk.PageSetup.IsPageSetup
type AttrTransferType PrintOperationDefaultPageSetupPropertyInfo = Gtk.PageSetup.PageSetup
type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = Gtk.PageSetup.PageSetup
type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "default-page-setup"
type AttrOrigin PrintOperationDefaultPageSetupPropertyInfo = PrintOperation
attrGet = getPrintOperationDefaultPageSetup
attrSet = setPrintOperationDefaultPageSetup
attrTransfer _ v = do
unsafeCastTo Gtk.PageSetup.PageSetup v
attrConstruct = constructPrintOperationDefaultPageSetup
attrClear = clearPrintOperationDefaultPageSetup
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.defaultPageSetup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:defaultPageSetup"
})
#endif
getPrintOperationEmbedPageSetup :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationEmbedPageSetup :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationEmbedPageSetup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"embed-page-setup"
setPrintOperationEmbedPageSetup :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationEmbedPageSetup :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationEmbedPageSetup o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"embed-page-setup" Bool
val
constructPrintOperationEmbedPageSetup :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationEmbedPageSetup :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationEmbedPageSetup Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"embed-page-setup" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationEmbedPageSetupPropertyInfo
instance AttrInfo PrintOperationEmbedPageSetupPropertyInfo where
type AttrAllowedOps PrintOperationEmbedPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = (~) Bool
type AttrTransferType PrintOperationEmbedPageSetupPropertyInfo = Bool
type AttrGetType PrintOperationEmbedPageSetupPropertyInfo = Bool
type AttrLabel PrintOperationEmbedPageSetupPropertyInfo = "embed-page-setup"
type AttrOrigin PrintOperationEmbedPageSetupPropertyInfo = PrintOperation
attrGet = getPrintOperationEmbedPageSetup
attrSet = setPrintOperationEmbedPageSetup
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationEmbedPageSetup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.embedPageSetup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:embedPageSetup"
})
#endif
getPrintOperationExportFilename :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe T.Text)
getPrintOperationExportFilename :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m (Maybe Text)
getPrintOperationExportFilename o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"export-filename"
setPrintOperationExportFilename :: (MonadIO m, IsPrintOperation o) => o -> T.Text -> m ()
setPrintOperationExportFilename :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Text -> m ()
setPrintOperationExportFilename o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"export-filename" (forall a. a -> Maybe a
Just Text
val)
constructPrintOperationExportFilename :: (IsPrintOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPrintOperationExportFilename :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPrintOperationExportFilename Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"export-filename" (forall a. a -> Maybe a
P.Just Text
val)
clearPrintOperationExportFilename :: (MonadIO m, IsPrintOperation o) => o -> m ()
clearPrintOperationExportFilename :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m ()
clearPrintOperationExportFilename o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"export-filename" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data PrintOperationExportFilenamePropertyInfo
instance AttrInfo PrintOperationExportFilenamePropertyInfo where
type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text
type AttrTransferType PrintOperationExportFilenamePropertyInfo = T.Text
type AttrGetType PrintOperationExportFilenamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintOperationExportFilenamePropertyInfo = "export-filename"
type AttrOrigin PrintOperationExportFilenamePropertyInfo = PrintOperation
attrGet = getPrintOperationExportFilename
attrSet = setPrintOperationExportFilename
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationExportFilename
attrClear = clearPrintOperationExportFilename
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.exportFilename"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:exportFilename"
})
#endif
getPrintOperationHasSelection :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationHasSelection :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationHasSelection o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-selection"
setPrintOperationHasSelection :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationHasSelection :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationHasSelection o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-selection" Bool
val
constructPrintOperationHasSelection :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationHasSelection :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationHasSelection Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-selection" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationHasSelectionPropertyInfo
instance AttrInfo PrintOperationHasSelectionPropertyInfo where
type AttrAllowedOps PrintOperationHasSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationHasSelectionPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationHasSelectionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationHasSelectionPropertyInfo = (~) Bool
type AttrTransferType PrintOperationHasSelectionPropertyInfo = Bool
type AttrGetType PrintOperationHasSelectionPropertyInfo = Bool
type AttrLabel PrintOperationHasSelectionPropertyInfo = "has-selection"
type AttrOrigin PrintOperationHasSelectionPropertyInfo = PrintOperation
attrGet = getPrintOperationHasSelection
attrSet = setPrintOperationHasSelection
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationHasSelection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.hasSelection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:hasSelection"
})
#endif
getPrintOperationJobName :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe T.Text)
getPrintOperationJobName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m (Maybe Text)
getPrintOperationJobName o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"job-name"
setPrintOperationJobName :: (MonadIO m, IsPrintOperation o) => o -> T.Text -> m ()
setPrintOperationJobName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Text -> m ()
setPrintOperationJobName o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"job-name" (forall a. a -> Maybe a
Just Text
val)
constructPrintOperationJobName :: (IsPrintOperation o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPrintOperationJobName :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPrintOperationJobName Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"job-name" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data PrintOperationJobNamePropertyInfo
instance AttrInfo PrintOperationJobNamePropertyInfo where
type AttrAllowedOps PrintOperationJobNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationJobNamePropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text
type AttrTransferType PrintOperationJobNamePropertyInfo = T.Text
type AttrGetType PrintOperationJobNamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintOperationJobNamePropertyInfo = "job-name"
type AttrOrigin PrintOperationJobNamePropertyInfo = PrintOperation
attrGet = getPrintOperationJobName
attrSet = setPrintOperationJobName
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationJobName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.jobName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:jobName"
})
#endif
getPrintOperationNPages :: (MonadIO m, IsPrintOperation o) => o -> m Int32
getPrintOperationNPages :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Int32
getPrintOperationNPages o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"n-pages"
setPrintOperationNPages :: (MonadIO m, IsPrintOperation o) => o -> Int32 -> m ()
setPrintOperationNPages :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Int32 -> m ()
setPrintOperationNPages o
obj Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"n-pages" Int32
val
constructPrintOperationNPages :: (IsPrintOperation o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructPrintOperationNPages :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructPrintOperationNPages Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"n-pages" Int32
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationNPagesPropertyInfo
instance AttrInfo PrintOperationNPagesPropertyInfo where
type AttrAllowedOps PrintOperationNPagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationNPagesPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationNPagesPropertyInfo = (~) Int32
type AttrTransferTypeConstraint PrintOperationNPagesPropertyInfo = (~) Int32
type AttrTransferType PrintOperationNPagesPropertyInfo = Int32
type AttrGetType PrintOperationNPagesPropertyInfo = Int32
type AttrLabel PrintOperationNPagesPropertyInfo = "n-pages"
type AttrOrigin PrintOperationNPagesPropertyInfo = PrintOperation
attrGet = getPrintOperationNPages
attrSet = setPrintOperationNPages
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationNPages
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.nPages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:nPages"
})
#endif
getPrintOperationNPagesToPrint :: (MonadIO m, IsPrintOperation o) => o -> m Int32
getPrintOperationNPagesToPrint :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Int32
getPrintOperationNPagesToPrint o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"n-pages-to-print"
#if defined(ENABLE_OVERLOADING)
data PrintOperationNPagesToPrintPropertyInfo
instance AttrInfo PrintOperationNPagesToPrintPropertyInfo where
type AttrAllowedOps PrintOperationNPagesToPrintPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint PrintOperationNPagesToPrintPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationNPagesToPrintPropertyInfo = (~) ()
type AttrTransferTypeConstraint PrintOperationNPagesToPrintPropertyInfo = (~) ()
type AttrTransferType PrintOperationNPagesToPrintPropertyInfo = ()
type AttrGetType PrintOperationNPagesToPrintPropertyInfo = Int32
type AttrLabel PrintOperationNPagesToPrintPropertyInfo = "n-pages-to-print"
type AttrOrigin PrintOperationNPagesToPrintPropertyInfo = PrintOperation
attrGet = getPrintOperationNPagesToPrint
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.nPagesToPrint"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:nPagesToPrint"
})
#endif
getPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o) => o -> m Gtk.PrintSettings.PrintSettings
getPrintOperationPrintSettings :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m PrintSettings
getPrintOperationPrintSettings o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getPrintOperationPrintSettings" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"print-settings" ManagedPtr PrintSettings -> PrintSettings
Gtk.PrintSettings.PrintSettings
setPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o, Gtk.PrintSettings.IsPrintSettings a) => o -> a -> m ()
setPrintOperationPrintSettings :: forall (m :: * -> *) o a.
(MonadIO m, IsPrintOperation o, IsPrintSettings a) =>
o -> a -> m ()
setPrintOperationPrintSettings o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"print-settings" (forall a. a -> Maybe a
Just a
val)
constructPrintOperationPrintSettings :: (IsPrintOperation o, MIO.MonadIO m, Gtk.PrintSettings.IsPrintSettings a) => a -> m (GValueConstruct o)
constructPrintOperationPrintSettings :: forall o (m :: * -> *) a.
(IsPrintOperation o, MonadIO m, IsPrintSettings a) =>
a -> m (GValueConstruct o)
constructPrintOperationPrintSettings a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"print-settings" (forall a. a -> Maybe a
P.Just a
val)
clearPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o) => o -> m ()
clearPrintOperationPrintSettings :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m ()
clearPrintOperationPrintSettings o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"print-settings" (forall a. Maybe a
Nothing :: Maybe Gtk.PrintSettings.PrintSettings)
#if defined(ENABLE_OVERLOADING)
data PrintOperationPrintSettingsPropertyInfo
instance AttrInfo PrintOperationPrintSettingsPropertyInfo where
type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.IsPrintSettings
type AttrTransferTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.IsPrintSettings
type AttrTransferType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.PrintSettings
type AttrGetType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.PrintSettings
type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings"
type AttrOrigin PrintOperationPrintSettingsPropertyInfo = PrintOperation
attrGet = getPrintOperationPrintSettings
attrSet = setPrintOperationPrintSettings
attrTransfer _ v = do
unsafeCastTo Gtk.PrintSettings.PrintSettings v
attrConstruct = constructPrintOperationPrintSettings
attrClear = clearPrintOperationPrintSettings
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printSettings"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:printSettings"
})
#endif
getPrintOperationShowProgress :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationShowProgress :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationShowProgress o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-progress"
setPrintOperationShowProgress :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationShowProgress :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationShowProgress o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-progress" Bool
val
constructPrintOperationShowProgress :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationShowProgress :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationShowProgress Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-progress" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationShowProgressPropertyInfo
instance AttrInfo PrintOperationShowProgressPropertyInfo where
type AttrAllowedOps PrintOperationShowProgressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationShowProgressPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationShowProgressPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationShowProgressPropertyInfo = (~) Bool
type AttrTransferType PrintOperationShowProgressPropertyInfo = Bool
type AttrGetType PrintOperationShowProgressPropertyInfo = Bool
type AttrLabel PrintOperationShowProgressPropertyInfo = "show-progress"
type AttrOrigin PrintOperationShowProgressPropertyInfo = PrintOperation
attrGet = getPrintOperationShowProgress
attrSet = setPrintOperationShowProgress
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationShowProgress
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.showProgress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:showProgress"
})
#endif
getPrintOperationStatus :: (MonadIO m, IsPrintOperation o) => o -> m Gtk.Enums.PrintStatus
getPrintOperationStatus :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m PrintStatus
getPrintOperationStatus o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"status"
#if defined(ENABLE_OVERLOADING)
data PrintOperationStatusPropertyInfo
instance AttrInfo PrintOperationStatusPropertyInfo where
type AttrAllowedOps PrintOperationStatusPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint PrintOperationStatusPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationStatusPropertyInfo = (~) ()
type AttrTransferTypeConstraint PrintOperationStatusPropertyInfo = (~) ()
type AttrTransferType PrintOperationStatusPropertyInfo = ()
type AttrGetType PrintOperationStatusPropertyInfo = Gtk.Enums.PrintStatus
type AttrLabel PrintOperationStatusPropertyInfo = "status"
type AttrOrigin PrintOperationStatusPropertyInfo = PrintOperation
attrGet = getPrintOperationStatus
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.status"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:status"
})
#endif
getPrintOperationStatusString :: (MonadIO m, IsPrintOperation o) => o -> m T.Text
getPrintOperationStatusString :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Text
getPrintOperationStatusString o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getPrintOperationStatusString" forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"status-string"
#if defined(ENABLE_OVERLOADING)
data PrintOperationStatusStringPropertyInfo
instance AttrInfo PrintOperationStatusStringPropertyInfo where
type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) ()
type AttrTransferTypeConstraint PrintOperationStatusStringPropertyInfo = (~) ()
type AttrTransferType PrintOperationStatusStringPropertyInfo = ()
type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text
type AttrLabel PrintOperationStatusStringPropertyInfo = "status-string"
type AttrOrigin PrintOperationStatusStringPropertyInfo = PrintOperation
attrGet = getPrintOperationStatusString
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.statusString"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:statusString"
})
#endif
getPrintOperationSupportSelection :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationSupportSelection :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationSupportSelection o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"support-selection"
setPrintOperationSupportSelection :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationSupportSelection :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationSupportSelection o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"support-selection" Bool
val
constructPrintOperationSupportSelection :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationSupportSelection :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationSupportSelection Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"support-selection" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationSupportSelectionPropertyInfo
instance AttrInfo PrintOperationSupportSelectionPropertyInfo where
type AttrAllowedOps PrintOperationSupportSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationSupportSelectionPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationSupportSelectionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationSupportSelectionPropertyInfo = (~) Bool
type AttrTransferType PrintOperationSupportSelectionPropertyInfo = Bool
type AttrGetType PrintOperationSupportSelectionPropertyInfo = Bool
type AttrLabel PrintOperationSupportSelectionPropertyInfo = "support-selection"
type AttrOrigin PrintOperationSupportSelectionPropertyInfo = PrintOperation
attrGet = getPrintOperationSupportSelection
attrSet = setPrintOperationSupportSelection
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationSupportSelection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.supportSelection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:supportSelection"
})
#endif
getPrintOperationTrackPrintStatus :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationTrackPrintStatus :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationTrackPrintStatus o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"track-print-status"
setPrintOperationTrackPrintStatus :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationTrackPrintStatus :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationTrackPrintStatus o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"track-print-status" Bool
val
constructPrintOperationTrackPrintStatus :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationTrackPrintStatus :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationTrackPrintStatus Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"track-print-status" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationTrackPrintStatusPropertyInfo
instance AttrInfo PrintOperationTrackPrintStatusPropertyInfo where
type AttrAllowedOps PrintOperationTrackPrintStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = (~) Bool
type AttrTransferType PrintOperationTrackPrintStatusPropertyInfo = Bool
type AttrGetType PrintOperationTrackPrintStatusPropertyInfo = Bool
type AttrLabel PrintOperationTrackPrintStatusPropertyInfo = "track-print-status"
type AttrOrigin PrintOperationTrackPrintStatusPropertyInfo = PrintOperation
attrGet = getPrintOperationTrackPrintStatus
attrSet = setPrintOperationTrackPrintStatus
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationTrackPrintStatus
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.trackPrintStatus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:trackPrintStatus"
})
#endif
getPrintOperationUnit :: (MonadIO m, IsPrintOperation o) => o -> m Gtk.Enums.Unit
getPrintOperationUnit :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Unit
getPrintOperationUnit o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"unit"
setPrintOperationUnit :: (MonadIO m, IsPrintOperation o) => o -> Gtk.Enums.Unit -> m ()
setPrintOperationUnit :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Unit -> m ()
setPrintOperationUnit o
obj Unit
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"unit" Unit
val
constructPrintOperationUnit :: (IsPrintOperation o, MIO.MonadIO m) => Gtk.Enums.Unit -> m (GValueConstruct o)
constructPrintOperationUnit :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Unit -> m (GValueConstruct o)
constructPrintOperationUnit Unit
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"unit" Unit
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationUnitPropertyInfo
instance AttrInfo PrintOperationUnitPropertyInfo where
type AttrAllowedOps PrintOperationUnitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationUnitPropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationUnitPropertyInfo = (~) Gtk.Enums.Unit
type AttrTransferTypeConstraint PrintOperationUnitPropertyInfo = (~) Gtk.Enums.Unit
type AttrTransferType PrintOperationUnitPropertyInfo = Gtk.Enums.Unit
type AttrGetType PrintOperationUnitPropertyInfo = Gtk.Enums.Unit
type AttrLabel PrintOperationUnitPropertyInfo = "unit"
type AttrOrigin PrintOperationUnitPropertyInfo = PrintOperation
attrGet = getPrintOperationUnit
attrSet = setPrintOperationUnit
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationUnit
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.unit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:unit"
})
#endif
getPrintOperationUseFullPage :: (MonadIO m, IsPrintOperation o) => o -> m Bool
getPrintOperationUseFullPage :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> m Bool
getPrintOperationUseFullPage o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-full-page"
setPrintOperationUseFullPage :: (MonadIO m, IsPrintOperation o) => o -> Bool -> m ()
setPrintOperationUseFullPage :: forall (m :: * -> *) o.
(MonadIO m, IsPrintOperation o) =>
o -> Bool -> m ()
setPrintOperationUseFullPage o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-full-page" Bool
val
constructPrintOperationUseFullPage :: (IsPrintOperation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintOperationUseFullPage :: forall o (m :: * -> *).
(IsPrintOperation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintOperationUseFullPage Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-full-page" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintOperationUseFullPagePropertyInfo
instance AttrInfo PrintOperationUseFullPagePropertyInfo where
type AttrAllowedOps PrintOperationUseFullPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintOperationUseFullPagePropertyInfo = IsPrintOperation
type AttrSetTypeConstraint PrintOperationUseFullPagePropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintOperationUseFullPagePropertyInfo = (~) Bool
type AttrTransferType PrintOperationUseFullPagePropertyInfo = Bool
type AttrGetType PrintOperationUseFullPagePropertyInfo = Bool
type AttrLabel PrintOperationUseFullPagePropertyInfo = "use-full-page"
type AttrOrigin PrintOperationUseFullPagePropertyInfo = PrintOperation
attrGet = getPrintOperationUseFullPage
attrSet = setPrintOperationUseFullPage
attrTransfer _ v = do
return v
attrConstruct = constructPrintOperationUseFullPage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.useFullPage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#g:attr:useFullPage"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PrintOperation
type instance O.AttributeList PrintOperation = PrintOperationAttributeList
type PrintOperationAttributeList = ('[ '("allowAsync", PrintOperationAllowAsyncPropertyInfo), '("currentPage", PrintOperationCurrentPagePropertyInfo), '("customTabLabel", PrintOperationCustomTabLabelPropertyInfo), '("defaultPageSetup", PrintOperationDefaultPageSetupPropertyInfo), '("embedPageSetup", PrintOperationEmbedPageSetupPropertyInfo), '("exportFilename", PrintOperationExportFilenamePropertyInfo), '("hasSelection", PrintOperationHasSelectionPropertyInfo), '("jobName", PrintOperationJobNamePropertyInfo), '("nPages", PrintOperationNPagesPropertyInfo), '("nPagesToPrint", PrintOperationNPagesToPrintPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("showProgress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("statusString", PrintOperationStatusStringPropertyInfo), '("supportSelection", PrintOperationSupportSelectionPropertyInfo), '("trackPrintStatus", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("useFullPage", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
printOperationAllowAsync :: AttrLabelProxy "allowAsync"
printOperationAllowAsync = AttrLabelProxy
printOperationCurrentPage :: AttrLabelProxy "currentPage"
printOperationCurrentPage = AttrLabelProxy
printOperationCustomTabLabel :: AttrLabelProxy "customTabLabel"
printOperationCustomTabLabel = AttrLabelProxy
printOperationDefaultPageSetup :: AttrLabelProxy "defaultPageSetup"
printOperationDefaultPageSetup = AttrLabelProxy
printOperationEmbedPageSetup :: AttrLabelProxy "embedPageSetup"
printOperationEmbedPageSetup = AttrLabelProxy
printOperationExportFilename :: AttrLabelProxy "exportFilename"
printOperationExportFilename = AttrLabelProxy
printOperationHasSelection :: AttrLabelProxy "hasSelection"
printOperationHasSelection = AttrLabelProxy
printOperationJobName :: AttrLabelProxy "jobName"
printOperationJobName = AttrLabelProxy
printOperationNPages :: AttrLabelProxy "nPages"
printOperationNPages = AttrLabelProxy
printOperationNPagesToPrint :: AttrLabelProxy "nPagesToPrint"
printOperationNPagesToPrint = AttrLabelProxy
printOperationPrintSettings :: AttrLabelProxy "printSettings"
printOperationPrintSettings = AttrLabelProxy
printOperationShowProgress :: AttrLabelProxy "showProgress"
printOperationShowProgress = AttrLabelProxy
printOperationStatus :: AttrLabelProxy "status"
printOperationStatus = AttrLabelProxy
printOperationStatusString :: AttrLabelProxy "statusString"
printOperationStatusString = AttrLabelProxy
printOperationSupportSelection :: AttrLabelProxy "supportSelection"
printOperationSupportSelection = AttrLabelProxy
printOperationTrackPrintStatus :: AttrLabelProxy "trackPrintStatus"
printOperationTrackPrintStatus = AttrLabelProxy
printOperationUnit :: AttrLabelProxy "unit"
printOperationUnit = AttrLabelProxy
printOperationUseFullPage :: AttrLabelProxy "useFullPage"
printOperationUseFullPage = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PrintOperation = PrintOperationSignalList
type PrintOperationSignalList = ('[ '("beginPrint", PrintOperationBeginPrintSignalInfo), '("createCustomWidget", PrintOperationCreateCustomWidgetSignalInfo), '("customWidgetApply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("drawPage", PrintOperationDrawPageSignalInfo), '("endPrint", PrintOperationEndPrintSignalInfo), '("gotPageSize", Gtk.PrintOperationPreview.PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", Gtk.PrintOperationPreview.PrintOperationPreviewReadySignalInfo), '("requestPageSetup", PrintOperationRequestPageSetupSignalInfo), '("statusChanged", PrintOperationStatusChangedSignalInfo), '("updateCustomWidget", PrintOperationUpdateCustomWidgetSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_print_operation_new" gtk_print_operation_new ::
IO (Ptr PrintOperation)
printOperationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m PrintOperation
printOperationNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m PrintOperation
printOperationNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
result <- IO (Ptr PrintOperation)
gtk_print_operation_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printOperationNew" Ptr PrintOperation
result
PrintOperation
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PrintOperation -> PrintOperation
PrintOperation) Ptr PrintOperation
result
forall (m :: * -> *) a. Monad m => a -> m a
return PrintOperation
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_print_operation_cancel" gtk_print_operation_cancel ::
Ptr PrintOperation ->
IO ()
printOperationCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m ()
printOperationCancel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m ()
printOperationCancel a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintOperation -> IO ()
gtk_print_operation_cancel Ptr PrintOperation
op'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationCancelMethodInfo a signature where
overloadedMethod = printOperationCancel
instance O.OverloadedMethodInfo PrintOperationCancelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationCancel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationCancel"
})
#endif
foreign import ccall "gtk_print_operation_draw_page_finish" gtk_print_operation_draw_page_finish ::
Ptr PrintOperation ->
IO ()
printOperationDrawPageFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m ()
printOperationDrawPageFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m ()
printOperationDrawPageFinish a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintOperation -> IO ()
gtk_print_operation_draw_page_finish Ptr PrintOperation
op'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationDrawPageFinishMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationDrawPageFinishMethodInfo a signature where
overloadedMethod = printOperationDrawPageFinish
instance O.OverloadedMethodInfo PrintOperationDrawPageFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationDrawPageFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationDrawPageFinish"
})
#endif
foreign import ccall "gtk_print_operation_get_default_page_setup" gtk_print_operation_get_default_page_setup ::
Ptr PrintOperation ->
IO (Ptr Gtk.PageSetup.PageSetup)
printOperationGetDefaultPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Gtk.PageSetup.PageSetup
printOperationGetDefaultPageSetup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m PageSetup
printOperationGetDefaultPageSetup a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PageSetup
result <- Ptr PrintOperation -> IO (Ptr PageSetup)
gtk_print_operation_get_default_page_setup Ptr PrintOperation
op'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printOperationGetDefaultPageSetup" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PageSetup -> PageSetup
Gtk.PageSetup.PageSetup) Ptr PageSetup
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetDefaultPageSetupMethodInfo
instance (signature ~ (m Gtk.PageSetup.PageSetup), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetDefaultPageSetupMethodInfo a signature where
overloadedMethod = printOperationGetDefaultPageSetup
instance O.OverloadedMethodInfo PrintOperationGetDefaultPageSetupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetDefaultPageSetup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetDefaultPageSetup"
})
#endif
foreign import ccall "gtk_print_operation_get_embed_page_setup" gtk_print_operation_get_embed_page_setup ::
Ptr PrintOperation ->
IO CInt
printOperationGetEmbedPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Bool
printOperationGetEmbedPageSetup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Bool
printOperationGetEmbedPageSetup a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr PrintOperation -> IO CInt
gtk_print_operation_get_embed_page_setup Ptr PrintOperation
op'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetEmbedPageSetupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetEmbedPageSetupMethodInfo a signature where
overloadedMethod = printOperationGetEmbedPageSetup
instance O.OverloadedMethodInfo PrintOperationGetEmbedPageSetupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetEmbedPageSetup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetEmbedPageSetup"
})
#endif
foreign import ccall "gtk_print_operation_get_error" gtk_print_operation_get_error ::
Ptr PrintOperation ->
Ptr (Ptr GError) ->
IO ()
printOperationGetError ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m ()
printOperationGetError :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m ()
printOperationGetError a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
forall a b. IO a -> IO b -> IO a
onException (do
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr PrintOperation -> Ptr (Ptr GError) -> IO ()
gtk_print_operation_get_error Ptr PrintOperation
op'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetErrorMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetErrorMethodInfo a signature where
overloadedMethod = printOperationGetError
instance O.OverloadedMethodInfo PrintOperationGetErrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetError",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetError"
})
#endif
foreign import ccall "gtk_print_operation_get_has_selection" gtk_print_operation_get_has_selection ::
Ptr PrintOperation ->
IO CInt
printOperationGetHasSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Bool
printOperationGetHasSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Bool
printOperationGetHasSelection a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr PrintOperation -> IO CInt
gtk_print_operation_get_has_selection Ptr PrintOperation
op'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetHasSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetHasSelectionMethodInfo a signature where
overloadedMethod = printOperationGetHasSelection
instance O.OverloadedMethodInfo PrintOperationGetHasSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetHasSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetHasSelection"
})
#endif
foreign import ccall "gtk_print_operation_get_n_pages_to_print" gtk_print_operation_get_n_pages_to_print ::
Ptr PrintOperation ->
IO Int32
printOperationGetNPagesToPrint ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Int32
printOperationGetNPagesToPrint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Int32
printOperationGetNPagesToPrint a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Int32
result <- Ptr PrintOperation -> IO Int32
gtk_print_operation_get_n_pages_to_print Ptr PrintOperation
op'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetNPagesToPrintMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetNPagesToPrintMethodInfo a signature where
overloadedMethod = printOperationGetNPagesToPrint
instance O.OverloadedMethodInfo PrintOperationGetNPagesToPrintMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetNPagesToPrint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetNPagesToPrint"
})
#endif
foreign import ccall "gtk_print_operation_get_print_settings" gtk_print_operation_get_print_settings ::
Ptr PrintOperation ->
IO (Ptr Gtk.PrintSettings.PrintSettings)
printOperationGetPrintSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Gtk.PrintSettings.PrintSettings
printOperationGetPrintSettings :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m PrintSettings
printOperationGetPrintSettings a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintSettings
result <- Ptr PrintOperation -> IO (Ptr PrintSettings)
gtk_print_operation_get_print_settings Ptr PrintOperation
op'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printOperationGetPrintSettings" Ptr PrintSettings
result
PrintSettings
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintSettings -> PrintSettings
Gtk.PrintSettings.PrintSettings) Ptr PrintSettings
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return PrintSettings
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetPrintSettingsMethodInfo
instance (signature ~ (m Gtk.PrintSettings.PrintSettings), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetPrintSettingsMethodInfo a signature where
overloadedMethod = printOperationGetPrintSettings
instance O.OverloadedMethodInfo PrintOperationGetPrintSettingsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetPrintSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetPrintSettings"
})
#endif
foreign import ccall "gtk_print_operation_get_status" gtk_print_operation_get_status ::
Ptr PrintOperation ->
IO CUInt
printOperationGetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Gtk.Enums.PrintStatus
printOperationGetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m PrintStatus
printOperationGetStatus a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CUInt
result <- Ptr PrintOperation -> IO CUInt
gtk_print_operation_get_status Ptr PrintOperation
op'
let result' :: PrintStatus
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return PrintStatus
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetStatusMethodInfo
instance (signature ~ (m Gtk.Enums.PrintStatus), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetStatusMethodInfo a signature where
overloadedMethod = printOperationGetStatus
instance O.OverloadedMethodInfo PrintOperationGetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetStatus"
})
#endif
foreign import ccall "gtk_print_operation_get_status_string" gtk_print_operation_get_status_string ::
Ptr PrintOperation ->
IO CString
printOperationGetStatusString ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m T.Text
printOperationGetStatusString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Text
printOperationGetStatusString a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
result <- Ptr PrintOperation -> IO CString
gtk_print_operation_get_status_string Ptr PrintOperation
op'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printOperationGetStatusString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetStatusStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetStatusStringMethodInfo a signature where
overloadedMethod = printOperationGetStatusString
instance O.OverloadedMethodInfo PrintOperationGetStatusStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetStatusString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetStatusString"
})
#endif
foreign import ccall "gtk_print_operation_get_support_selection" gtk_print_operation_get_support_selection ::
Ptr PrintOperation ->
IO CInt
printOperationGetSupportSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Bool
printOperationGetSupportSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Bool
printOperationGetSupportSelection a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr PrintOperation -> IO CInt
gtk_print_operation_get_support_selection Ptr PrintOperation
op'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationGetSupportSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationGetSupportSelectionMethodInfo a signature where
overloadedMethod = printOperationGetSupportSelection
instance O.OverloadedMethodInfo PrintOperationGetSupportSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationGetSupportSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationGetSupportSelection"
})
#endif
foreign import ccall "gtk_print_operation_is_finished" gtk_print_operation_is_finished ::
Ptr PrintOperation ->
IO CInt
printOperationIsFinished ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m Bool
printOperationIsFinished :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m Bool
printOperationIsFinished a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CInt
result <- Ptr PrintOperation -> IO CInt
gtk_print_operation_is_finished Ptr PrintOperation
op'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintOperationIsFinishedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationIsFinishedMethodInfo a signature where
overloadedMethod = printOperationIsFinished
instance O.OverloadedMethodInfo PrintOperationIsFinishedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationIsFinished",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationIsFinished"
})
#endif
foreign import ccall "gtk_print_operation_run" gtk_print_operation_run ::
Ptr PrintOperation ->
CUInt ->
Ptr Gtk.Window.Window ->
Ptr (Ptr GError) ->
IO CUInt
printOperationRun ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) =>
a
-> Gtk.Enums.PrintOperationAction
-> Maybe (b)
-> m Gtk.Enums.PrintOperationResult
printOperationRun :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintOperation a, IsWindow b) =>
a -> PrintOperationAction -> Maybe b -> m PrintOperationResult
printOperationRun a
op PrintOperationAction
action Maybe b
parent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let action' :: CUInt
action' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) PrintOperationAction
action
Ptr Window
maybeParent <- case Maybe b
parent of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jParent -> do
Ptr Window
jParent' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jParent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jParent'
forall a b. IO a -> IO b -> IO a
onException (do
CUInt
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr PrintOperation
-> CUInt -> Ptr Window -> Ptr (Ptr GError) -> IO CUInt
gtk_print_operation_run Ptr PrintOperation
op' CUInt
action' Ptr Window
maybeParent
let result' :: PrintOperationResult
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
parent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return PrintOperationResult
result'
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data PrintOperationRunMethodInfo
instance (signature ~ (Gtk.Enums.PrintOperationAction -> Maybe (b) -> m Gtk.Enums.PrintOperationResult), MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) => O.OverloadedMethod PrintOperationRunMethodInfo a signature where
overloadedMethod = printOperationRun
instance O.OverloadedMethodInfo PrintOperationRunMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationRun",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationRun"
})
#endif
foreign import ccall "gtk_print_operation_set_allow_async" gtk_print_operation_set_allow_async ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetAllowAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetAllowAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetAllowAsync a
op Bool
allowAsync = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let allowAsync' :: CInt
allowAsync' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
allowAsync
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_allow_async Ptr PrintOperation
op' CInt
allowAsync'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetAllowAsyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetAllowAsyncMethodInfo a signature where
overloadedMethod = printOperationSetAllowAsync
instance O.OverloadedMethodInfo PrintOperationSetAllowAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetAllowAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetAllowAsync"
})
#endif
foreign import ccall "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page ::
Ptr PrintOperation ->
Int32 ->
IO ()
printOperationSetCurrentPage ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Int32
-> m ()
printOperationSetCurrentPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Int32 -> m ()
printOperationSetCurrentPage a
op Int32
currentPage = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintOperation -> Int32 -> IO ()
gtk_print_operation_set_current_page Ptr PrintOperation
op' Int32
currentPage
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetCurrentPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetCurrentPageMethodInfo a signature where
overloadedMethod = printOperationSetCurrentPage
instance O.OverloadedMethodInfo PrintOperationSetCurrentPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetCurrentPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetCurrentPage"
})
#endif
foreign import ccall "gtk_print_operation_set_custom_tab_label" gtk_print_operation_set_custom_tab_label ::
Ptr PrintOperation ->
CString ->
IO ()
printOperationSetCustomTabLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Maybe (T.Text)
-> m ()
printOperationSetCustomTabLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Maybe Text -> m ()
printOperationSetCustomTabLabel a
op Maybe Text
label = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr PrintOperation -> CString -> IO ()
gtk_print_operation_set_custom_tab_label Ptr PrintOperation
op' CString
maybeLabel
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetCustomTabLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetCustomTabLabelMethodInfo a signature where
overloadedMethod = printOperationSetCustomTabLabel
instance O.OverloadedMethodInfo PrintOperationSetCustomTabLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetCustomTabLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetCustomTabLabel"
})
#endif
foreign import ccall "gtk_print_operation_set_default_page_setup" gtk_print_operation_set_default_page_setup ::
Ptr PrintOperation ->
Ptr Gtk.PageSetup.PageSetup ->
IO ()
printOperationSetDefaultPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) =>
a
-> Maybe (b)
-> m ()
printOperationSetDefaultPageSetup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintOperation a, IsPageSetup b) =>
a -> Maybe b -> m ()
printOperationSetDefaultPageSetup a
op Maybe b
defaultPageSetup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PageSetup
maybeDefaultPageSetup <- case Maybe b
defaultPageSetup of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jDefaultPageSetup -> do
Ptr PageSetup
jDefaultPageSetup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDefaultPageSetup
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr PageSetup
jDefaultPageSetup'
Ptr PrintOperation -> Ptr PageSetup -> IO ()
gtk_print_operation_set_default_page_setup Ptr PrintOperation
op' Ptr PageSetup
maybeDefaultPageSetup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
defaultPageSetup forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetDefaultPageSetupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) => O.OverloadedMethod PrintOperationSetDefaultPageSetupMethodInfo a signature where
overloadedMethod = printOperationSetDefaultPageSetup
instance O.OverloadedMethodInfo PrintOperationSetDefaultPageSetupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetDefaultPageSetup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetDefaultPageSetup"
})
#endif
foreign import ccall "gtk_print_operation_set_defer_drawing" gtk_print_operation_set_defer_drawing ::
Ptr PrintOperation ->
IO ()
printOperationSetDeferDrawing ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m ()
printOperationSetDeferDrawing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> m ()
printOperationSetDeferDrawing a
op = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintOperation -> IO ()
gtk_print_operation_set_defer_drawing Ptr PrintOperation
op'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetDeferDrawingMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetDeferDrawingMethodInfo a signature where
overloadedMethod = printOperationSetDeferDrawing
instance O.OverloadedMethodInfo PrintOperationSetDeferDrawingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetDeferDrawing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetDeferDrawing"
})
#endif
foreign import ccall "gtk_print_operation_set_embed_page_setup" gtk_print_operation_set_embed_page_setup ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetEmbedPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetEmbedPageSetup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetEmbedPageSetup a
op Bool
embed = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let embed' :: CInt
embed' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
embed
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_embed_page_setup Ptr PrintOperation
op' CInt
embed'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetEmbedPageSetupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetEmbedPageSetupMethodInfo a signature where
overloadedMethod = printOperationSetEmbedPageSetup
instance O.OverloadedMethodInfo PrintOperationSetEmbedPageSetupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetEmbedPageSetup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetEmbedPageSetup"
})
#endif
foreign import ccall "gtk_print_operation_set_export_filename" gtk_print_operation_set_export_filename ::
Ptr PrintOperation ->
CString ->
IO ()
printOperationSetExportFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> [Char]
-> m ()
printOperationSetExportFilename :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> String -> m ()
printOperationSetExportFilename a
op String
filename = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
filename' <- String -> IO CString
stringToCString String
filename
Ptr PrintOperation -> CString -> IO ()
gtk_print_operation_set_export_filename Ptr PrintOperation
op' CString
filename'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall a. Ptr a -> IO ()
freeMem CString
filename'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetExportFilenameMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetExportFilenameMethodInfo a signature where
overloadedMethod = printOperationSetExportFilename
instance O.OverloadedMethodInfo PrintOperationSetExportFilenameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetExportFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetExportFilename"
})
#endif
foreign import ccall "gtk_print_operation_set_has_selection" gtk_print_operation_set_has_selection ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetHasSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetHasSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetHasSelection a
op Bool
hasSelection = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let hasSelection' :: CInt
hasSelection' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
hasSelection
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_has_selection Ptr PrintOperation
op' CInt
hasSelection'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetHasSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetHasSelectionMethodInfo a signature where
overloadedMethod = printOperationSetHasSelection
instance O.OverloadedMethodInfo PrintOperationSetHasSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetHasSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetHasSelection"
})
#endif
foreign import ccall "gtk_print_operation_set_job_name" gtk_print_operation_set_job_name ::
Ptr PrintOperation ->
CString ->
IO ()
printOperationSetJobName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> T.Text
-> m ()
printOperationSetJobName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Text -> m ()
printOperationSetJobName a
op Text
jobName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
CString
jobName' <- Text -> IO CString
textToCString Text
jobName
Ptr PrintOperation -> CString -> IO ()
gtk_print_operation_set_job_name Ptr PrintOperation
op' CString
jobName'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall a. Ptr a -> IO ()
freeMem CString
jobName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetJobNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetJobNameMethodInfo a signature where
overloadedMethod = printOperationSetJobName
instance O.OverloadedMethodInfo PrintOperationSetJobNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetJobName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetJobName"
})
#endif
foreign import ccall "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages ::
Ptr PrintOperation ->
Int32 ->
IO ()
printOperationSetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Int32
-> m ()
printOperationSetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Int32 -> m ()
printOperationSetNPages a
op Int32
nPages = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintOperation -> Int32 -> IO ()
gtk_print_operation_set_n_pages Ptr PrintOperation
op' Int32
nPages
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetNPagesMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetNPagesMethodInfo a signature where
overloadedMethod = printOperationSetNPages
instance O.OverloadedMethodInfo PrintOperationSetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetNPages"
})
#endif
foreign import ccall "gtk_print_operation_set_print_settings" gtk_print_operation_set_print_settings ::
Ptr PrintOperation ->
Ptr Gtk.PrintSettings.PrintSettings ->
IO ()
printOperationSetPrintSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.PrintSettings.IsPrintSettings b) =>
a
-> Maybe (b)
-> m ()
printOperationSetPrintSettings :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintOperation a, IsPrintSettings b) =>
a -> Maybe b -> m ()
printOperationSetPrintSettings a
op Maybe b
printSettings = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
Ptr PrintSettings
maybePrintSettings <- case Maybe b
printSettings of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jPrintSettings -> do
Ptr PrintSettings
jPrintSettings' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPrintSettings
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr PrintSettings
jPrintSettings'
Ptr PrintOperation -> Ptr PrintSettings -> IO ()
gtk_print_operation_set_print_settings Ptr PrintOperation
op' Ptr PrintSettings
maybePrintSettings
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
printSettings forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetPrintSettingsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPrintOperation a, Gtk.PrintSettings.IsPrintSettings b) => O.OverloadedMethod PrintOperationSetPrintSettingsMethodInfo a signature where
overloadedMethod = printOperationSetPrintSettings
instance O.OverloadedMethodInfo PrintOperationSetPrintSettingsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetPrintSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetPrintSettings"
})
#endif
foreign import ccall "gtk_print_operation_set_show_progress" gtk_print_operation_set_show_progress ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetShowProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetShowProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetShowProgress a
op Bool
showProgress = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let showProgress' :: CInt
showProgress' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
showProgress
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_show_progress Ptr PrintOperation
op' CInt
showProgress'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetShowProgressMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetShowProgressMethodInfo a signature where
overloadedMethod = printOperationSetShowProgress
instance O.OverloadedMethodInfo PrintOperationSetShowProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetShowProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetShowProgress"
})
#endif
foreign import ccall "gtk_print_operation_set_support_selection" gtk_print_operation_set_support_selection ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetSupportSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetSupportSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetSupportSelection a
op Bool
supportSelection = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let supportSelection' :: CInt
supportSelection' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
supportSelection
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_support_selection Ptr PrintOperation
op' CInt
supportSelection'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetSupportSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetSupportSelectionMethodInfo a signature where
overloadedMethod = printOperationSetSupportSelection
instance O.OverloadedMethodInfo PrintOperationSetSupportSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetSupportSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetSupportSelection"
})
#endif
foreign import ccall "gtk_print_operation_set_track_print_status" gtk_print_operation_set_track_print_status ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetTrackPrintStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetTrackPrintStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetTrackPrintStatus a
op Bool
trackStatus = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let trackStatus' :: CInt
trackStatus' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
trackStatus
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_track_print_status Ptr PrintOperation
op' CInt
trackStatus'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetTrackPrintStatusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetTrackPrintStatusMethodInfo a signature where
overloadedMethod = printOperationSetTrackPrintStatus
instance O.OverloadedMethodInfo PrintOperationSetTrackPrintStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetTrackPrintStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetTrackPrintStatus"
})
#endif
foreign import ccall "gtk_print_operation_set_unit" gtk_print_operation_set_unit ::
Ptr PrintOperation ->
CUInt ->
IO ()
printOperationSetUnit ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Gtk.Enums.Unit
-> m ()
printOperationSetUnit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Unit -> m ()
printOperationSetUnit a
op Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PrintOperation -> CUInt -> IO ()
gtk_print_operation_set_unit Ptr PrintOperation
op' CUInt
unit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetUnitMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetUnitMethodInfo a signature where
overloadedMethod = printOperationSetUnit
instance O.OverloadedMethodInfo PrintOperationSetUnitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetUnit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetUnit"
})
#endif
foreign import ccall "gtk_print_operation_set_use_full_page" gtk_print_operation_set_use_full_page ::
Ptr PrintOperation ->
CInt ->
IO ()
printOperationSetUseFullPage ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> Bool
-> m ()
printOperationSetUseFullPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintOperation a) =>
a -> Bool -> m ()
printOperationSetUseFullPage a
op Bool
fullPage = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PrintOperation
op' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
op
let fullPage' :: CInt
fullPage' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
fullPage
Ptr PrintOperation -> CInt -> IO ()
gtk_print_operation_set_use_full_page Ptr PrintOperation
op' CInt
fullPage'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
op
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintOperationSetUseFullPageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintOperation a) => O.OverloadedMethod PrintOperationSetUseFullPageMethodInfo a signature where
overloadedMethod = printOperationSetUseFullPage
instance O.OverloadedMethodInfo PrintOperationSetUseFullPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PrintOperation.printOperationSetUseFullPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PrintOperation.html#v:printOperationSetUseFullPage"
})
#endif