module GI.Gtk.Interfaces.PrintOperationPreview
(
PrintOperationPreview(..) ,
noPrintOperationPreview ,
IsPrintOperationPreview ,
toPrintOperationPreview ,
PrintOperationPreviewEndPreviewMethodInfo,
printOperationPreviewEndPreview ,
PrintOperationPreviewIsSelectedMethodInfo,
printOperationPreviewIsSelected ,
PrintOperationPreviewRenderPageMethodInfo,
printOperationPreviewRenderPage ,
C_PrintOperationPreviewGotPageSizeCallback,
PrintOperationPreviewGotPageSizeCallback,
PrintOperationPreviewGotPageSizeSignalInfo,
afterPrintOperationPreviewGotPageSize ,
genClosure_PrintOperationPreviewGotPageSize,
mk_PrintOperationPreviewGotPageSizeCallback,
noPrintOperationPreviewGotPageSizeCallback,
onPrintOperationPreviewGotPageSize ,
wrap_PrintOperationPreviewGotPageSizeCallback,
C_PrintOperationPreviewReadyCallback ,
PrintOperationPreviewReadyCallback ,
PrintOperationPreviewReadySignalInfo ,
afterPrintOperationPreviewReady ,
genClosure_PrintOperationPreviewReady ,
mk_PrintOperationPreviewReadyCallback ,
noPrintOperationPreviewReadyCallback ,
onPrintOperationPreviewReady ,
wrap_PrintOperationPreviewReadyCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import qualified GI.Gtk.Objects.PrintContext as Gtk.PrintContext
newtype PrintOperationPreview = PrintOperationPreview (ManagedPtr PrintOperationPreview)
noPrintOperationPreview :: Maybe PrintOperationPreview
noPrintOperationPreview = Nothing
type family ResolvePrintOperationPreviewMethod (t :: Symbol) (o :: *) :: * where
ResolvePrintOperationPreviewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePrintOperationPreviewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePrintOperationPreviewMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo
ResolvePrintOperationPreviewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePrintOperationPreviewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePrintOperationPreviewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePrintOperationPreviewMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo
ResolvePrintOperationPreviewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePrintOperationPreviewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePrintOperationPreviewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePrintOperationPreviewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePrintOperationPreviewMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo
ResolvePrintOperationPreviewMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolvePrintOperationPreviewMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolvePrintOperationPreviewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePrintOperationPreviewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePrintOperationPreviewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePrintOperationPreviewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePrintOperationPreviewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePrintOperationPreviewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePrintOperationPreviewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePrintOperationPreviewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePrintOperationPreviewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePrintOperationPreviewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePrintOperationPreviewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePrintOperationPreviewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, O.MethodInfo info PrintOperationPreview p) => O.IsLabelProxy t (PrintOperationPreview -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, O.MethodInfo info PrintOperationPreview p) => O.IsLabel t (PrintOperationPreview -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type PrintOperationPreviewGotPageSizeCallback =
Gtk.PrintContext.PrintContext ->
Gtk.PageSetup.PageSetup ->
IO ()
noPrintOperationPreviewGotPageSizeCallback :: Maybe PrintOperationPreviewGotPageSizeCallback
noPrintOperationPreviewGotPageSizeCallback = Nothing
type C_PrintOperationPreviewGotPageSizeCallback =
Ptr () ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr Gtk.PageSetup.PageSetup ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationPreviewGotPageSizeCallback :: C_PrintOperationPreviewGotPageSizeCallback -> IO (FunPtr C_PrintOperationPreviewGotPageSizeCallback)
genClosure_PrintOperationPreviewGotPageSize :: PrintOperationPreviewGotPageSizeCallback -> IO Closure
genClosure_PrintOperationPreviewGotPageSize cb = do
let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb
mk_PrintOperationPreviewGotPageSizeCallback cb' >>= newCClosure
wrap_PrintOperationPreviewGotPageSizeCallback ::
PrintOperationPreviewGotPageSizeCallback ->
Ptr () ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr Gtk.PageSetup.PageSetup ->
Ptr () ->
IO ()
wrap_PrintOperationPreviewGotPageSizeCallback _cb _ context pageSetup _ = do
context' <- (newObject Gtk.PrintContext.PrintContext) context
pageSetup' <- (newObject Gtk.PageSetup.PageSetup) pageSetup
_cb context' pageSetup'
onPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId
onPrintOperationPreviewGotPageSize obj cb = liftIO $ connectPrintOperationPreviewGotPageSize obj cb SignalConnectBefore
afterPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId
afterPrintOperationPreviewGotPageSize obj cb = connectPrintOperationPreviewGotPageSize obj cb SignalConnectAfter
connectPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) =>
a -> PrintOperationPreviewGotPageSizeCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPreviewGotPageSize obj cb after = liftIO $ do
let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb
cb'' <- mk_PrintOperationPreviewGotPageSizeCallback cb'
connectSignalFunPtr obj "got-page-size" cb'' after
type PrintOperationPreviewReadyCallback =
Gtk.PrintContext.PrintContext ->
IO ()
noPrintOperationPreviewReadyCallback :: Maybe PrintOperationPreviewReadyCallback
noPrintOperationPreviewReadyCallback = Nothing
type C_PrintOperationPreviewReadyCallback =
Ptr () ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationPreviewReadyCallback :: C_PrintOperationPreviewReadyCallback -> IO (FunPtr C_PrintOperationPreviewReadyCallback)
genClosure_PrintOperationPreviewReady :: PrintOperationPreviewReadyCallback -> IO Closure
genClosure_PrintOperationPreviewReady cb = do
let cb' = wrap_PrintOperationPreviewReadyCallback cb
mk_PrintOperationPreviewReadyCallback cb' >>= newCClosure
wrap_PrintOperationPreviewReadyCallback ::
PrintOperationPreviewReadyCallback ->
Ptr () ->
Ptr Gtk.PrintContext.PrintContext ->
Ptr () ->
IO ()
wrap_PrintOperationPreviewReadyCallback _cb _ context _ = do
context' <- (newObject Gtk.PrintContext.PrintContext) context
_cb context'
onPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId
onPrintOperationPreviewReady obj cb = liftIO $ connectPrintOperationPreviewReady obj cb SignalConnectBefore
afterPrintOperationPreviewReady :: (GObject a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId
afterPrintOperationPreviewReady obj cb = connectPrintOperationPreviewReady obj cb SignalConnectAfter
connectPrintOperationPreviewReady :: (GObject a, MonadIO m) =>
a -> PrintOperationPreviewReadyCallback -> SignalConnectMode -> m SignalHandlerId
connectPrintOperationPreviewReady obj cb after = liftIO $ do
let cb' = wrap_PrintOperationPreviewReadyCallback cb
cb'' <- mk_PrintOperationPreviewReadyCallback cb'
connectSignalFunPtr obj "ready" cb'' after
instance O.HasAttributeList PrintOperationPreview
type instance O.AttributeList PrintOperationPreview = PrintOperationPreviewAttributeList
type PrintOperationPreviewAttributeList = ('[ ] :: [(Symbol, *)])
data PrintOperationPreviewGotPageSizeSignalInfo
instance SignalInfo PrintOperationPreviewGotPageSizeSignalInfo where
type HaskellCallbackType PrintOperationPreviewGotPageSizeSignalInfo = PrintOperationPreviewGotPageSizeCallback
connectSignal _ = connectPrintOperationPreviewGotPageSize
data PrintOperationPreviewReadySignalInfo
instance SignalInfo PrintOperationPreviewReadySignalInfo where
type HaskellCallbackType PrintOperationPreviewReadySignalInfo = PrintOperationPreviewReadyCallback
connectSignal _ = connectPrintOperationPreviewReady
type instance O.SignalList PrintOperationPreview = PrintOperationPreviewSignalList
type PrintOperationPreviewSignalList = ('[ '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_print_operation_preview_get_type"
c_gtk_print_operation_preview_get_type :: IO GType
instance GObject PrintOperationPreview where
gobjectType _ = c_gtk_print_operation_preview_get_type
class GObject o => IsPrintOperationPreview o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError PrintOperationPreview a) =>
IsPrintOperationPreview a
#endif
instance IsPrintOperationPreview PrintOperationPreview
instance GObject.Object.IsObject PrintOperationPreview
toPrintOperationPreview :: IsPrintOperationPreview o => o -> IO PrintOperationPreview
toPrintOperationPreview = unsafeCastTo PrintOperationPreview
foreign import ccall "gtk_print_operation_preview_end_preview" gtk_print_operation_preview_end_preview ::
Ptr PrintOperationPreview ->
IO ()
printOperationPreviewEndPreview ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) =>
a
-> m ()
printOperationPreviewEndPreview preview = liftIO $ do
preview' <- unsafeManagedPtrCastPtr preview
gtk_print_operation_preview_end_preview preview'
touchManagedPtr preview
return ()
data PrintOperationPreviewEndPreviewMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewEndPreviewMethodInfo a signature where
overloadedMethod _ = printOperationPreviewEndPreview
foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected ::
Ptr PrintOperationPreview ->
Int32 ->
IO CInt
printOperationPreviewIsSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) =>
a
-> Int32
-> m Bool
printOperationPreviewIsSelected preview pageNr = liftIO $ do
preview' <- unsafeManagedPtrCastPtr preview
result <- gtk_print_operation_preview_is_selected preview' pageNr
let result' = (/= 0) result
touchManagedPtr preview
return result'
data PrintOperationPreviewIsSelectedMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewIsSelectedMethodInfo a signature where
overloadedMethod _ = printOperationPreviewIsSelected
foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page ::
Ptr PrintOperationPreview ->
Int32 ->
IO ()
printOperationPreviewRenderPage ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) =>
a
-> Int32
-> m ()
printOperationPreviewRenderPage preview pageNr = liftIO $ do
preview' <- unsafeManagedPtrCastPtr preview
gtk_print_operation_preview_render_page preview' pageNr
touchManagedPtr preview
return ()
data PrintOperationPreviewRenderPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewRenderPageMethodInfo a signature where
overloadedMethod _ = printOperationPreviewRenderPage