{-# LINE 2 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
module Graphics.UI.Gtk.Printing.PrintOperation (
PrintOperation,
PrintOperationClass,
castToPrintOperation,
toPrintOperation,
PrintOperationPreview,
PrintOperationPreviewClass,
castToPrintOperationPreview,
toPrintOperationPreview,
PrintStatus(..),
PrintOperationAction(..),
PrintOperationResult(..),
PrintError(..),
printOperationNew,
printOperationSetAllowAsync,
printOperationGetError,
printOperationSetJobName,
printOperationSetNPages,
printOperationGetNPagesToPrint,
printOperationSetCurrentPage,
printOperationSetUseFullPage,
printOperationSetUnit,
printOperationSetExportFilename,
printOperationSetShowProgress,
printOperationSetTrackPrintStatus,
printOperationSetCustomTabLabel,
printOperationRun,
printOperationCancel,
printOperationDrawPageFinish,
printOperationSetDeferDrawing,
printOperationGetStatus,
printOperationGetStatusString,
printOperationIsFinished,
printRunPageSetupDialog,
printRunPageSetupDialogAsync,
printOperationPreviewEndPreview,
printOperationPreviewIsSelected,
printOperationPreviewRenderPage,
printOperationDefaultPageSetup,
printOperationPrintSettings,
printOperationJobName,
printOperationNPages,
printOperationCurrentPage,
printOperationUseFullPage,
printOperationTrackPrintStatus,
printOperationUnit,
printOperationShowProgress,
printOperationAllowAsync,
printOperationExportFilename,
printOperationStatus,
printOperationStatusString,
printOperationCustomTabLabel,
printOperationSupportSelection,
printOperationHasSelection,
printOperationEmbedPageSetup,
printOperationNPagesToPrint,
printOptDone,
printOptBeginPrint,
printOptPaginate,
printOptRequestPageSetup,
printOptDrawPage,
printOptEndPrint,
printOptStatusChanged,
printOptCreateCustomWidget,
printOptUpdateCustomWidget,
printOptCustomWidgetApply,
printOptPreview,
printOptReady,
printOptGotPageSize,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import System.Glib.UTFString
import System.Glib.GError
import Graphics.UI.Gtk.Types
{-# LINE 171 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 172 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
import Graphics.UI.Gtk.Printing.PaperSize (Unit(..))
{-# LINE 175 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
instance PrintOperationPreviewClass PrintOperation
data PrintStatus = PrintStatusInitial
| PrintStatusPreparing
| PrintStatusGeneratingData
| PrintStatusSendingData
| PrintStatusPending
| PrintStatusPendingIssue
| PrintStatusPrinting
| PrintStatusFinished
| PrintStatusFinishedAborted
deriving (Enum,Bounded,Eq,Show)
{-# LINE 186 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
data PrintOperationAction = PrintOperationActionPrintDialog
| PrintOperationActionPrint
| PrintOperationActionPreview
| PrintOperationActionExport
deriving (Enum,Bounded,Eq,Show)
{-# LINE 190 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
data PrintOperationResult = PrintOperationResultError
| PrintOperationResultApply
| PrintOperationResultCancel
| PrintOperationResultInProgress
deriving (Enum,Bounded,Eq,Show)
{-# LINE 193 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
data PrintError = PrintErrorGeneral
| PrintErrorInternalError
| PrintErrorNomem
| PrintErrorInvalidFile
deriving (Enum,Bounded,Eq,Show)
{-# LINE 196 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationNew :: IO PrintOperation
printOperationNew =
wrapNewGObject mkPrintOperation $
gtk_print_operation_new
{-# LINE 206 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationSetAllowAsync :: PrintOperationClass self => self
-> Bool
-> IO ()
printOperationSetAllowAsync self allowAsync =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_allow_async argPtr1 arg2)
{-# LINE 219 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromBool allowAsync)
printOperationGetError :: PrintOperationClass self => self -> IO ()
printOperationGetError self =
propagateGError $ \errorPtr ->
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_get_error argPtr1 arg2)
{-# LINE 231 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
errorPtr
printOperationSetJobName :: (PrintOperationClass self, GlibString string) => self
-> string
-> IO ()
printOperationSetJobName self jobName =
withUTFString jobName $ \jobNamePtr ->
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_job_name argPtr1 arg2)
{-# LINE 246 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
jobNamePtr
printOperationSetNPages :: PrintOperationClass self => self
-> Int
-> IO ()
printOperationSetNPages self nPages =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_n_pages argPtr1 arg2)
{-# LINE 264 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromIntegral nPages)
printOperationGetNPagesToPrint :: PrintOperationClass self => self
-> IO Int
printOperationGetNPagesToPrint self =
liftM fromIntegral $
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_get_n_pages_to_print argPtr1)
{-# LINE 285 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printOperationSetCurrentPage :: PrintOperationClass self => self
-> Int
-> IO ()
printOperationSetCurrentPage self currentPage =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_current_page argPtr1 arg2)
{-# LINE 300 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromIntegral currentPage)
printOperationSetUseFullPage :: PrintOperationClass self => self
-> Bool
-> IO ()
printOperationSetUseFullPage self fullPage =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_use_full_page argPtr1 arg2)
{-# LINE 315 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromBool fullPage)
printOperationSetUnit :: PrintOperationClass self => self
-> Unit
-> IO ()
printOperationSetUnit self unit =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_unit argPtr1 arg2)
{-# LINE 326 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
((fromIntegral . fromEnum) unit)
printOperationSetExportFilename :: (PrintOperationClass self, GlibString string) => self
-> string
-> IO ()
printOperationSetExportFilename self filename =
withUTFString filename $ \filenamePtr ->
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_export_filename argPtr1 arg2)
{-# LINE 343 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
filenamePtr
printOperationSetShowProgress :: PrintOperationClass self => self
-> Bool
-> IO ()
printOperationSetShowProgress self showProgress =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_show_progress argPtr1 arg2)
{-# LINE 354 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromBool showProgress)
printOperationSetTrackPrintStatus :: PrintOperationClass self => self
-> Bool
-> IO ()
printOperationSetTrackPrintStatus self trackStatus =
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_track_print_status argPtr1 arg2)
{-# LINE 370 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
(fromBool trackStatus)
printOperationSetCustomTabLabel :: (PrintOperationClass self, GlibString string) => self
-> string
-> IO ()
printOperationSetCustomTabLabel self label =
withUTFString label $ \labelPtr ->
(\(PrintOperation arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_custom_tab_label argPtr1 arg2)
{-# LINE 382 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
labelPtr
printOperationRun :: (PrintOperationClass self, WindowClass parent) => self
-> PrintOperationAction
-> parent
-> IO PrintOperationResult
printOperationRun self action parent =
liftM (toEnum . fromIntegral) $
propagateGError $ \errorPtr ->
(\(PrintOperation arg1) arg2 (Window arg3) arg4 -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg3 $ \argPtr3 ->gtk_print_operation_run argPtr1 arg2 argPtr3 arg4)
{-# LINE 416 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
((fromIntegral . fromEnum) action)
(toWindow parent)
errorPtr
printOperationCancel :: PrintOperationClass self => self -> IO ()
printOperationCancel self =
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_cancel argPtr1)
{-# LINE 428 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printOperationDrawPageFinish :: PrintOperationClass self => self -> IO ()
printOperationDrawPageFinish self =
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_draw_page_finish argPtr1)
{-# LINE 443 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printOperationSetDeferDrawing :: PrintOperationClass self => self -> IO ()
printOperationSetDeferDrawing self =
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_set_defer_drawing argPtr1)
{-# LINE 456 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printOperationGetStatus :: PrintOperationClass self => self
-> IO PrintStatus
printOperationGetStatus self =
liftM (toEnum . fromIntegral) $
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_get_status argPtr1)
{-# LINE 467 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printOperationGetStatusString :: (PrintOperationClass self, GlibString string) => self
-> IO string
printOperationGetStatusString self =
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_get_status_string argPtr1)
{-# LINE 481 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
>>= peekUTFString
printOperationIsFinished :: PrintOperationClass self => self
-> IO Bool
printOperationIsFinished self =
liftM toBool $
(\(PrintOperation arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_is_finished argPtr1)
{-# LINE 497 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperation self)
printRunPageSetupDialog :: (WindowClass window, PageSetupClass pageSetup, PrintSettingsClass setting)
=> window
-> pageSetup
-> setting
-> IO PageSetup
printRunPageSetupDialog window pageSetup setting =
wrapNewGObject mkPageSetup $
(\(Window arg1) (PageSetup arg2) (PrintSettings arg3) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->withForeignPtr arg3 $ \argPtr3 ->gtk_print_run_page_setup_dialog argPtr1 argPtr2 argPtr3)
{-# LINE 513 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toWindow window)
(toPageSetup pageSetup)
(toPrintSettings setting)
type PageSetupDoneFunc = FunPtr (((Ptr PageSetup) -> ((Ptr ()) -> (IO ()))))
{-# LINE 518 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
foreign import ccall "wrapper" mkGtkPageSetupDoneFunc ::
(Ptr PageSetup -> Ptr () -> IO ())
-> IO PageSetupDoneFunc
printRunPageSetupDialogAsync :: (WindowClass window, PageSetupClass pageSetup, PrintSettingsClass setting)
=> window
-> pageSetup
-> setting
-> (PageSetup -> IO ())
-> IO ()
printRunPageSetupDialogAsync window pageSetup setting doneCb = do
funcPtr <- mkGtkPageSetupDoneFunc $ \setupPtr _ -> do
setup <- makeNewGObject mkPageSetup (return setupPtr)
doneCb setup
(\(Window arg1) (PageSetup arg2) (PrintSettings arg3) arg4 arg5 -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->withForeignPtr arg3 $ \argPtr3 ->gtk_print_run_page_setup_dialog_async argPtr1 argPtr2 argPtr3 arg4 arg5)
{-# LINE 539 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toWindow window)
(toPageSetup pageSetup)
(toPrintSettings setting)
funcPtr
nullPtr
printOperationPreviewEndPreview :: PrintOperationPreviewClass self
=> self
-> IO ()
printOperationPreviewEndPreview self =
(\(PrintOperationPreview arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_preview_end_preview argPtr1)
{-# LINE 553 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperationPreview self)
printOperationPreviewIsSelected :: PrintOperationPreviewClass self
=> self
-> Int
-> IO Bool
printOperationPreviewIsSelected self pageNr =
liftM toBool $
(\(PrintOperationPreview arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_preview_is_selected argPtr1 arg2)
{-# LINE 563 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperationPreview self)
(fromIntegral pageNr)
printOperationPreviewRenderPage :: PrintOperationPreviewClass self
=> self
-> Int
-> IO ()
printOperationPreviewRenderPage self pageNr =
(\(PrintOperationPreview arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_print_operation_preview_render_page argPtr1 arg2)
{-# LINE 579 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
(toPrintOperationPreview self)
(fromIntegral pageNr)
printOperationDefaultPageSetup :: (PrintOperationClass self, PageSetupClass pageSetup) => ReadWriteAttr self PageSetup pageSetup
printOperationDefaultPageSetup = newAttrFromObjectProperty "default-page-setup"
gtk_page_setup_get_type
{-# LINE 594 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationPrintSettings :: (PrintOperationClass self, PrintSettingsClass printSettings) => ReadWriteAttr self PrintSettings printSettings
printOperationPrintSettings = newAttrFromObjectProperty "print-settings"
gtk_print_settings_get_type
{-# LINE 604 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationJobName :: (PrintOperationClass self, GlibString string) => Attr self string
printOperationJobName = newAttrFromStringProperty "job-name"
printOperationNPages :: PrintOperationClass self => Attr self Int
printOperationNPages = newAttrFromIntProperty "n-pages"
printOperationCurrentPage :: PrintOperationClass self => Attr self Int
printOperationCurrentPage = newAttrFromIntProperty "current-page"
printOperationUseFullPage :: PrintOperationClass self => Attr self Bool
printOperationUseFullPage = newAttrFromBoolProperty "use-full-page"
printOperationTrackPrintStatus :: PrintOperationClass self => Attr self Bool
printOperationTrackPrintStatus = newAttrFromBoolProperty "track-print-status"
printOperationUnit :: PrintOperationClass self => Attr self Unit
printOperationUnit = newAttrFromEnumProperty "unit"
gtk_unit_get_type
{-# LINE 679 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationShowProgress :: PrintOperationClass self => Attr self Bool
printOperationShowProgress = newAttrFromBoolProperty "show-progress"
printOperationAllowAsync :: PrintOperationClass self => Attr self Bool
printOperationAllowAsync = newAttrFromBoolProperty "allow-async"
printOperationExportFilename :: (PrintOperationClass self, GlibString string) => Attr self string
printOperationExportFilename = newAttrFromStringProperty "export-filename"
printOperationStatus :: PrintOperationClass self => ReadAttr self PrintStatus
printOperationStatus = readAttrFromEnumProperty "status"
gtk_print_status_get_type
{-# LINE 726 "./Graphics/UI/Gtk/Printing/PrintOperation.chs" #-}
printOperationStatusString :: (PrintOperationClass self, GlibString string) => ReadAttr self string
printOperationStatusString = readAttrFromStringProperty "status-string"
printOperationCustomTabLabel :: (PrintOperationClass self, GlibString string) => Attr self string
printOperationCustomTabLabel = newAttrFromStringProperty "custom-tab-label"
printOperationSupportSelection :: PrintOperationClass self => Attr self Bool
printOperationSupportSelection = newAttrFromBoolProperty "support-selection"
printOperationHasSelection :: PrintOperationClass self => Attr self Bool
printOperationHasSelection = newAttrFromBoolProperty "has-selection"
printOperationEmbedPageSetup :: PrintOperationClass self => Attr self Bool
printOperationEmbedPageSetup = newAttrFromBoolProperty "embed-page-setup"
printOperationNPagesToPrint :: PrintOperationClass self => ReadAttr self Int
printOperationNPagesToPrint = readAttrFromIntProperty "n-pages-to-print"
printOptDone :: PrintOperationClass self => Signal self (PrintOperationResult -> IO ())
printOptDone = Signal (connect_ENUM__NONE "done")
printOptBeginPrint :: PrintOperationClass self => Signal self (PrintContext -> IO ())
printOptBeginPrint = Signal (connect_OBJECT__NONE "begin_print")
printOptPaginate :: PrintOperationClass self => Signal self (PrintContext -> IO Bool)
printOptPaginate = Signal (connect_OBJECT__BOOL "paginate")
printOptRequestPageSetup :: PrintOperationClass self => Signal self (PrintContext -> Int -> PageSetup -> IO ())
printOptRequestPageSetup = Signal (connect_OBJECT_INT_OBJECT__NONE "request_page_setup")
printOptDrawPage :: PrintOperationClass self => Signal self (PrintContext -> Int -> IO ())
printOptDrawPage = Signal (connect_OBJECT_INT__NONE "draw_page")
printOptEndPrint :: PrintOperationClass self => Signal self (PrintContext -> IO ())
printOptEndPrint = Signal (connect_OBJECT__NONE "end_print")
printOptStatusChanged :: PrintOperationClass self => Signal self (IO ())
printOptStatusChanged = Signal (connect_NONE__NONE "status_changed")
printOptCreateCustomWidget :: PrintOperationClass self => Signal self (IO Widget)
printOptCreateCustomWidget = Signal (connect_NONE__OBJECTPTR "create_custom_widget")
connect_NONE__OBJECTPTR ::
GObjectClass obj => SignalName ->
ConnectAfter -> obj ->
(IO Widget) ->
IO (ConnectId obj)
connect_NONE__OBJECTPTR signal after obj user =
connectGeneric signal after obj action
where action :: Ptr GObject -> IO (Ptr Widget)
action _ =
failOnGError $ do
x <- user
return $ unsafeForeignPtrToPtr (unWidget (toWidget x))
printOptUpdateCustomWidget :: PrintOperationClass self => Signal self (Widget -> PageSetup -> PrintSettings -> IO ())
printOptUpdateCustomWidget = Signal (connect_OBJECT_OBJECT_OBJECT__NONE "update_custom_widget")
printOptCustomWidgetApply :: PrintOperationClass self => Signal self (Widget -> IO ())
printOptCustomWidgetApply = Signal (connect_OBJECT__NONE "custom_widget_apply")
printOptPreview :: PrintOperationClass self => Signal self (PrintOperationPreview -> PrintContext -> Window -> IO Bool)
printOptPreview = Signal (connect_OBJECT_OBJECT_OBJECT__BOOL "preview")
printOptReady :: PrintOperationPreviewClass self => Signal self (PrintContext -> IO ())
printOptReady = Signal (connect_OBJECT__NONE "ready")
printOptGotPageSize :: PrintOperationPreviewClass self => Signal self (PrintContext -> PageSetup -> IO ())
printOptGotPageSize = Signal (connect_OBJECT_OBJECT__NONE "got_page_size")
foreign import ccall safe "gtk_print_operation_new"
gtk_print_operation_new :: (IO (Ptr PrintOperation))
foreign import ccall safe "gtk_print_operation_set_allow_async"
gtk_print_operation_set_allow_async :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_get_error"
gtk_print_operation_get_error :: ((Ptr PrintOperation) -> ((Ptr (Ptr ())) -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_job_name"
gtk_print_operation_set_job_name :: ((Ptr PrintOperation) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_n_pages"
gtk_print_operation_set_n_pages :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_get_n_pages_to_print"
gtk_print_operation_get_n_pages_to_print :: ((Ptr PrintOperation) -> (IO CInt))
foreign import ccall safe "gtk_print_operation_set_current_page"
gtk_print_operation_set_current_page :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_use_full_page"
gtk_print_operation_set_use_full_page :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_unit"
gtk_print_operation_set_unit :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_export_filename"
gtk_print_operation_set_export_filename :: ((Ptr PrintOperation) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_show_progress"
gtk_print_operation_set_show_progress :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_track_print_status"
gtk_print_operation_set_track_print_status :: ((Ptr PrintOperation) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_print_operation_set_custom_tab_label"
gtk_print_operation_set_custom_tab_label :: ((Ptr PrintOperation) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_print_operation_run"
gtk_print_operation_run :: ((Ptr PrintOperation) -> (CInt -> ((Ptr Window) -> ((Ptr (Ptr ())) -> (IO CInt)))))
foreign import ccall safe "gtk_print_operation_cancel"
gtk_print_operation_cancel :: ((Ptr PrintOperation) -> (IO ()))
foreign import ccall safe "gtk_print_operation_draw_page_finish"
gtk_print_operation_draw_page_finish :: ((Ptr PrintOperation) -> (IO ()))
foreign import ccall safe "gtk_print_operation_set_defer_drawing"
gtk_print_operation_set_defer_drawing :: ((Ptr PrintOperation) -> (IO ()))
foreign import ccall safe "gtk_print_operation_get_status"
gtk_print_operation_get_status :: ((Ptr PrintOperation) -> (IO CInt))
foreign import ccall safe "gtk_print_operation_get_status_string"
gtk_print_operation_get_status_string :: ((Ptr PrintOperation) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_print_operation_is_finished"
gtk_print_operation_is_finished :: ((Ptr PrintOperation) -> (IO CInt))
foreign import ccall safe "gtk_print_run_page_setup_dialog"
gtk_print_run_page_setup_dialog :: ((Ptr Window) -> ((Ptr PageSetup) -> ((Ptr PrintSettings) -> (IO (Ptr PageSetup)))))
foreign import ccall safe "gtk_print_run_page_setup_dialog_async"
gtk_print_run_page_setup_dialog_async :: ((Ptr Window) -> ((Ptr PageSetup) -> ((Ptr PrintSettings) -> ((FunPtr ((Ptr PageSetup) -> ((Ptr ()) -> (IO ())))) -> ((Ptr ()) -> (IO ()))))))
foreign import ccall safe "gtk_print_operation_preview_end_preview"
gtk_print_operation_preview_end_preview :: ((Ptr PrintOperationPreview) -> (IO ()))
foreign import ccall safe "gtk_print_operation_preview_is_selected"
gtk_print_operation_preview_is_selected :: ((Ptr PrintOperationPreview) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_print_operation_preview_render_page"
gtk_print_operation_preview_render_page :: ((Ptr PrintOperationPreview) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_page_setup_get_type"
gtk_page_setup_get_type :: CULong
foreign import ccall unsafe "gtk_print_settings_get_type"
gtk_print_settings_get_type :: CULong
foreign import ccall unsafe "gtk_unit_get_type"
gtk_unit_get_type :: CULong
foreign import ccall unsafe "gtk_print_status_get_type"
gtk_print_status_get_type :: CULong