module GI.Gtk.Interfaces.PrintOperationPreview
(
PrintOperationPreview(..) ,
noPrintOperationPreview ,
PrintOperationPreviewK ,
toPrintOperationPreview ,
printOperationPreviewEndPreview ,
printOperationPreviewIsSelected ,
printOperationPreviewRenderPage ,
PrintOperationPreviewGotPageSizeCallback,
PrintOperationPreviewGotPageSizeCallbackC,
PrintOperationPreviewGotPageSizeSignalInfo,
afterPrintOperationPreviewGotPageSize ,
mkPrintOperationPreviewGotPageSizeCallback,
noPrintOperationPreviewGotPageSizeCallback,
onPrintOperationPreviewGotPageSize ,
printOperationPreviewGotPageSizeCallbackWrapper,
printOperationPreviewGotPageSizeClosure ,
PrintOperationPreviewReadyCallback ,
PrintOperationPreviewReadyCallbackC ,
PrintOperationPreviewReadySignalInfo ,
afterPrintOperationPreviewReady ,
mkPrintOperationPreviewReadyCallback ,
noPrintOperationPreviewReadyCallback ,
onPrintOperationPreviewReady ,
printOperationPreviewReadyCallbackWrapper,
printOperationPreviewReadyClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
newtype PrintOperationPreview = PrintOperationPreview (ForeignPtr PrintOperationPreview)
noPrintOperationPreview :: Maybe PrintOperationPreview
noPrintOperationPreview = Nothing
type PrintOperationPreviewGotPageSizeCallback =
PrintContext ->
PageSetup ->
IO ()
noPrintOperationPreviewGotPageSizeCallback :: Maybe PrintOperationPreviewGotPageSizeCallback
noPrintOperationPreviewGotPageSizeCallback = Nothing
type PrintOperationPreviewGotPageSizeCallbackC =
Ptr () ->
Ptr PrintContext ->
Ptr PageSetup ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkPrintOperationPreviewGotPageSizeCallback :: PrintOperationPreviewGotPageSizeCallbackC -> IO (FunPtr PrintOperationPreviewGotPageSizeCallbackC)
printOperationPreviewGotPageSizeClosure :: PrintOperationPreviewGotPageSizeCallback -> IO Closure
printOperationPreviewGotPageSizeClosure cb = newCClosure =<< mkPrintOperationPreviewGotPageSizeCallback wrapped
where wrapped = printOperationPreviewGotPageSizeCallbackWrapper cb
printOperationPreviewGotPageSizeCallbackWrapper ::
PrintOperationPreviewGotPageSizeCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr PageSetup ->
Ptr () ->
IO ()
printOperationPreviewGotPageSizeCallbackWrapper _cb _ context page_setup _ = do
context' <- (newObject PrintContext) context
page_setup' <- (newObject PageSetup) page_setup
_cb context' page_setup'
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
cb' <- mkPrintOperationPreviewGotPageSizeCallback (printOperationPreviewGotPageSizeCallbackWrapper cb)
connectSignalFunPtr obj "got-page-size" cb' after
type PrintOperationPreviewReadyCallback =
PrintContext ->
IO ()
noPrintOperationPreviewReadyCallback :: Maybe PrintOperationPreviewReadyCallback
noPrintOperationPreviewReadyCallback = Nothing
type PrintOperationPreviewReadyCallbackC =
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkPrintOperationPreviewReadyCallback :: PrintOperationPreviewReadyCallbackC -> IO (FunPtr PrintOperationPreviewReadyCallbackC)
printOperationPreviewReadyClosure :: PrintOperationPreviewReadyCallback -> IO Closure
printOperationPreviewReadyClosure cb = newCClosure =<< mkPrintOperationPreviewReadyCallback wrapped
where wrapped = printOperationPreviewReadyCallbackWrapper cb
printOperationPreviewReadyCallbackWrapper ::
PrintOperationPreviewReadyCallback ->
Ptr () ->
Ptr PrintContext ->
Ptr () ->
IO ()
printOperationPreviewReadyCallbackWrapper _cb _ context _ = do
context' <- (newObject 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
cb' <- mkPrintOperationPreviewReadyCallback (printOperationPreviewReadyCallbackWrapper cb)
connectSignalFunPtr obj "ready" cb' after
type instance 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 SignalList PrintOperationPreview = PrintOperationPreviewSignalList
type PrintOperationPreviewSignalList = ('[ '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_print_operation_preview_get_type"
c_gtk_print_operation_preview_get_type :: IO GType
type instance ParentTypes PrintOperationPreview = PrintOperationPreviewParentTypes
type PrintOperationPreviewParentTypes = '[GObject.Object]
instance GObject PrintOperationPreview where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_operation_preview_get_type
class GObject o => PrintOperationPreviewK o
instance (GObject o, IsDescendantOf PrintOperationPreview o) => PrintOperationPreviewK o
toPrintOperationPreview :: PrintOperationPreviewK 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 ::
(MonadIO m, PrintOperationPreviewK a) =>
a ->
m ()
printOperationPreviewEndPreview _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_preview_end_preview _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected ::
Ptr PrintOperationPreview ->
Int32 ->
IO CInt
printOperationPreviewIsSelected ::
(MonadIO m, PrintOperationPreviewK a) =>
a ->
Int32 ->
m Bool
printOperationPreviewIsSelected _obj page_nr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_operation_preview_is_selected _obj' page_nr
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page ::
Ptr PrintOperationPreview ->
Int32 ->
IO ()
printOperationPreviewRenderPage ::
(MonadIO m, PrintOperationPreviewK a) =>
a ->
Int32 ->
m ()
printOperationPreviewRenderPage _obj page_nr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_operation_preview_render_page _obj' page_nr
touchManagedPtr _obj
return ()