#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.PrintOperation
(
PrintOperation(..) ,
IsPrintOperation ,
toPrintOperation ,
noPrintOperation ,
#if ENABLE_OVERLOADING
PrintOperationGetPageSetupMethodInfo ,
#endif
printOperationGetPageSetup ,
#if ENABLE_OVERLOADING
PrintOperationGetPrintSettingsMethodInfo,
#endif
printOperationGetPrintSettings ,
printOperationNew ,
#if ENABLE_OVERLOADING
PrintOperationPrintMethodInfo ,
#endif
printOperationPrint ,
#if ENABLE_OVERLOADING
PrintOperationRunDialogMethodInfo ,
#endif
printOperationRunDialog ,
#if ENABLE_OVERLOADING
PrintOperationSetPageSetupMethodInfo ,
#endif
printOperationSetPageSetup ,
#if ENABLE_OVERLOADING
PrintOperationSetPrintSettingsMethodInfo,
#endif
printOperationSetPrintSettings ,
#if ENABLE_OVERLOADING
PrintOperationPageSetupPropertyInfo ,
#endif
constructPrintOperationPageSetup ,
getPrintOperationPageSetup ,
#if ENABLE_OVERLOADING
printOperationPageSetup ,
#endif
setPrintOperationPageSetup ,
#if ENABLE_OVERLOADING
PrintOperationPrintSettingsPropertyInfo ,
#endif
constructPrintOperationPrintSettings ,
getPrintOperationPrintSettings ,
#if ENABLE_OVERLOADING
printOperationPrintSettings ,
#endif
setPrintOperationPrintSettings ,
#if ENABLE_OVERLOADING
PrintOperationWebViewPropertyInfo ,
#endif
constructPrintOperationWebView ,
getPrintOperationWebView ,
#if ENABLE_OVERLOADING
printOperationWebView ,
#endif
C_PrintOperationCreateCustomWidgetCallback,
PrintOperationCreateCustomWidgetCallback,
#if ENABLE_OVERLOADING
PrintOperationCreateCustomWidgetSignalInfo,
#endif
afterPrintOperationCreateCustomWidget ,
genClosure_PrintOperationCreateCustomWidget,
mk_PrintOperationCreateCustomWidgetCallback,
noPrintOperationCreateCustomWidgetCallback,
onPrintOperationCreateCustomWidget ,
wrap_PrintOperationCreateCustomWidgetCallback,
C_PrintOperationFailedCallback ,
PrintOperationFailedCallback ,
#if ENABLE_OVERLOADING
PrintOperationFailedSignalInfo ,
#endif
afterPrintOperationFailed ,
genClosure_PrintOperationFailed ,
mk_PrintOperationFailedCallback ,
noPrintOperationFailedCallback ,
onPrintOperationFailed ,
wrap_PrintOperationFailedCallback ,
C_PrintOperationFinishedCallback ,
PrintOperationFinishedCallback ,
#if ENABLE_OVERLOADING
PrintOperationFinishedSignalInfo ,
#endif
afterPrintOperationFinished ,
genClosure_PrintOperationFinished ,
mk_PrintOperationFinishedCallback ,
noPrintOperationFinishedCallback ,
onPrintOperationFinished ,
wrap_PrintOperationFinishedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings
import qualified GI.Gtk.Objects.Window as Gtk.Window
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
import {-# SOURCE #-} qualified GI.WebKit2.Objects.PrintCustomWidget as WebKit2.PrintCustomWidget
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView
newtype PrintOperation = PrintOperation (ManagedPtr PrintOperation)
foreign import ccall "webkit_print_operation_get_type"
c_webkit_print_operation_get_type :: IO GType
instance GObject PrintOperation where
gobjectType = c_webkit_print_operation_get_type
class (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o
instance (GObject o, O.IsDescendantOf PrintOperation o) => IsPrintOperation o
instance O.HasParentTypes PrintOperation
type instance O.ParentTypes PrintOperation = '[GObject.Object.Object]
toPrintOperation :: (MonadIO m, IsPrintOperation o) => o -> m PrintOperation
toPrintOperation = liftIO . unsafeCastTo PrintOperation
noPrintOperation :: Maybe PrintOperation
noPrintOperation = Nothing
#if ENABLE_OVERLOADING
type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where
ResolvePrintOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePrintOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePrintOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePrintOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePrintOperationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePrintOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePrintOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePrintOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePrintOperationMethod "print" o = PrintOperationPrintMethodInfo
ResolvePrintOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePrintOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePrintOperationMethod "runDialog" o = PrintOperationRunDialogMethodInfo
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 "getPageSetup" o = PrintOperationGetPageSetupMethodInfo
ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo
ResolvePrintOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePrintOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePrintOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePrintOperationMethod "setPageSetup" o = PrintOperationSetPageSetupMethodInfo
ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo
ResolvePrintOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePrintOperationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePrintOperationMethod t PrintOperation, O.MethodInfo info PrintOperation p) => OL.IsLabel t (PrintOperation -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type PrintOperationCreateCustomWidgetCallback =
IO WebKit2.PrintCustomWidget.PrintCustomWidget
noPrintOperationCreateCustomWidgetCallback :: Maybe PrintOperationCreateCustomWidgetCallback
noPrintOperationCreateCustomWidgetCallback = Nothing
type C_PrintOperationCreateCustomWidgetCallback =
Ptr () ->
Ptr () ->
IO (Ptr WebKit2.PrintCustomWidget.PrintCustomWidget)
foreign import ccall "wrapper"
mk_PrintOperationCreateCustomWidgetCallback :: C_PrintOperationCreateCustomWidgetCallback -> IO (FunPtr C_PrintOperationCreateCustomWidgetCallback)
genClosure_PrintOperationCreateCustomWidget :: MonadIO m => PrintOperationCreateCustomWidgetCallback -> m (GClosure C_PrintOperationCreateCustomWidgetCallback)
genClosure_PrintOperationCreateCustomWidget cb = liftIO $ do
let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb
mk_PrintOperationCreateCustomWidgetCallback cb' >>= B.GClosure.newGClosure
wrap_PrintOperationCreateCustomWidgetCallback ::
PrintOperationCreateCustomWidgetCallback ->
C_PrintOperationCreateCustomWidgetCallback
wrap_PrintOperationCreateCustomWidgetCallback _cb _ _ = do
result <- _cb
result' <- B.ManagedPtr.disownObject result
return result'
onPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId
onPrintOperationCreateCustomWidget obj cb = liftIO $ do
let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb
cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'
connectSignalFunPtr obj "create-custom-widget" cb'' SignalConnectBefore
afterPrintOperationCreateCustomWidget :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationCreateCustomWidgetCallback -> m SignalHandlerId
afterPrintOperationCreateCustomWidget obj cb = liftIO $ do
let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb
cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'
connectSignalFunPtr obj "create-custom-widget" cb'' SignalConnectAfter
type PrintOperationFailedCallback =
GError
-> IO ()
noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback
noPrintOperationFailedCallback = Nothing
type C_PrintOperationFailedCallback =
Ptr () ->
Ptr GError ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationFailedCallback :: C_PrintOperationFailedCallback -> IO (FunPtr C_PrintOperationFailedCallback)
genClosure_PrintOperationFailed :: MonadIO m => PrintOperationFailedCallback -> m (GClosure C_PrintOperationFailedCallback)
genClosure_PrintOperationFailed cb = liftIO $ do
let cb' = wrap_PrintOperationFailedCallback cb
mk_PrintOperationFailedCallback cb' >>= B.GClosure.newGClosure
wrap_PrintOperationFailedCallback ::
PrintOperationFailedCallback ->
C_PrintOperationFailedCallback
wrap_PrintOperationFailedCallback _cb _ error_ _ = do
error_' <- (newBoxed GError) error_
_cb error_'
onPrintOperationFailed :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId
onPrintOperationFailed obj cb = liftIO $ do
let cb' = wrap_PrintOperationFailedCallback cb
cb'' <- mk_PrintOperationFailedCallback cb'
connectSignalFunPtr obj "failed" cb'' SignalConnectBefore
afterPrintOperationFailed :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId
afterPrintOperationFailed obj cb = liftIO $ do
let cb' = wrap_PrintOperationFailedCallback cb
cb'' <- mk_PrintOperationFailedCallback cb'
connectSignalFunPtr obj "failed" cb'' SignalConnectAfter
type PrintOperationFinishedCallback =
IO ()
noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback
noPrintOperationFinishedCallback = Nothing
type C_PrintOperationFinishedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintOperationFinishedCallback :: C_PrintOperationFinishedCallback -> IO (FunPtr C_PrintOperationFinishedCallback)
genClosure_PrintOperationFinished :: MonadIO m => PrintOperationFinishedCallback -> m (GClosure C_PrintOperationFinishedCallback)
genClosure_PrintOperationFinished cb = liftIO $ do
let cb' = wrap_PrintOperationFinishedCallback cb
mk_PrintOperationFinishedCallback cb' >>= B.GClosure.newGClosure
wrap_PrintOperationFinishedCallback ::
PrintOperationFinishedCallback ->
C_PrintOperationFinishedCallback
wrap_PrintOperationFinishedCallback _cb _ _ = do
_cb
onPrintOperationFinished :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId
onPrintOperationFinished obj cb = liftIO $ do
let cb' = wrap_PrintOperationFinishedCallback cb
cb'' <- mk_PrintOperationFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' SignalConnectBefore
afterPrintOperationFinished :: (IsPrintOperation a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId
afterPrintOperationFinished obj cb = liftIO $ do
let cb' = wrap_PrintOperationFinishedCallback cb
cb'' <- mk_PrintOperationFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' SignalConnectAfter
getPrintOperationPageSetup :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe Gtk.PageSetup.PageSetup)
getPrintOperationPageSetup obj = liftIO $ B.Properties.getObjectPropertyObject obj "page-setup" Gtk.PageSetup.PageSetup
setPrintOperationPageSetup :: (MonadIO m, IsPrintOperation o, Gtk.PageSetup.IsPageSetup a) => o -> a -> m ()
setPrintOperationPageSetup obj val = liftIO $ B.Properties.setObjectPropertyObject obj "page-setup" (Just val)
constructPrintOperationPageSetup :: (IsPrintOperation o, Gtk.PageSetup.IsPageSetup a) => a -> IO (GValueConstruct o)
constructPrintOperationPageSetup val = B.Properties.constructObjectPropertyObject "page-setup" (Just val)
#if ENABLE_OVERLOADING
data PrintOperationPageSetupPropertyInfo
instance AttrInfo PrintOperationPageSetupPropertyInfo where
type AttrAllowedOps PrintOperationPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetup.IsPageSetup
type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = IsPrintOperation
type AttrGetType PrintOperationPageSetupPropertyInfo = (Maybe Gtk.PageSetup.PageSetup)
type AttrLabel PrintOperationPageSetupPropertyInfo = "page-setup"
type AttrOrigin PrintOperationPageSetupPropertyInfo = PrintOperation
attrGet _ = getPrintOperationPageSetup
attrSet _ = setPrintOperationPageSetup
attrConstruct _ = constructPrintOperationPageSetup
attrClear _ = undefined
#endif
getPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe Gtk.PrintSettings.PrintSettings)
getPrintOperationPrintSettings obj = liftIO $ B.Properties.getObjectPropertyObject obj "print-settings" Gtk.PrintSettings.PrintSettings
setPrintOperationPrintSettings :: (MonadIO m, IsPrintOperation o, Gtk.PrintSettings.IsPrintSettings a) => o -> a -> m ()
setPrintOperationPrintSettings obj val = liftIO $ B.Properties.setObjectPropertyObject obj "print-settings" (Just val)
constructPrintOperationPrintSettings :: (IsPrintOperation o, Gtk.PrintSettings.IsPrintSettings a) => a -> IO (GValueConstruct o)
constructPrintOperationPrintSettings val = B.Properties.constructObjectPropertyObject "print-settings" (Just val)
#if ENABLE_OVERLOADING
data PrintOperationPrintSettingsPropertyInfo
instance AttrInfo PrintOperationPrintSettingsPropertyInfo where
type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings.IsPrintSettings
type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = IsPrintOperation
type AttrGetType PrintOperationPrintSettingsPropertyInfo = (Maybe Gtk.PrintSettings.PrintSettings)
type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings"
type AttrOrigin PrintOperationPrintSettingsPropertyInfo = PrintOperation
attrGet _ = getPrintOperationPrintSettings
attrSet _ = setPrintOperationPrintSettings
attrConstruct _ = constructPrintOperationPrintSettings
attrClear _ = undefined
#endif
getPrintOperationWebView :: (MonadIO m, IsPrintOperation o) => o -> m (Maybe WebKit2.WebView.WebView)
getPrintOperationWebView obj = liftIO $ B.Properties.getObjectPropertyObject obj "web-view" WebKit2.WebView.WebView
constructPrintOperationWebView :: (IsPrintOperation o, WebKit2.WebView.IsWebView a) => a -> IO (GValueConstruct o)
constructPrintOperationWebView val = B.Properties.constructObjectPropertyObject "web-view" (Just val)
#if ENABLE_OVERLOADING
data PrintOperationWebViewPropertyInfo
instance AttrInfo PrintOperationWebViewPropertyInfo where
type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebKit2.WebView.IsWebView
type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = IsPrintOperation
type AttrGetType PrintOperationWebViewPropertyInfo = (Maybe WebKit2.WebView.WebView)
type AttrLabel PrintOperationWebViewPropertyInfo = "web-view"
type AttrOrigin PrintOperationWebViewPropertyInfo = PrintOperation
attrGet _ = getPrintOperationWebView
attrSet _ = undefined
attrConstruct _ = constructPrintOperationWebView
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList PrintOperation
type instance O.AttributeList PrintOperation = PrintOperationAttributeList
type PrintOperationAttributeList = ('[ '("pageSetup", PrintOperationPageSetupPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("webView", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
printOperationPageSetup :: AttrLabelProxy "pageSetup"
printOperationPageSetup = AttrLabelProxy
printOperationPrintSettings :: AttrLabelProxy "printSettings"
printOperationPrintSettings = AttrLabelProxy
printOperationWebView :: AttrLabelProxy "webView"
printOperationWebView = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data PrintOperationCreateCustomWidgetSignalInfo
instance SignalInfo PrintOperationCreateCustomWidgetSignalInfo where
type HaskellCallbackType PrintOperationCreateCustomWidgetSignalInfo = PrintOperationCreateCustomWidgetCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PrintOperationCreateCustomWidgetCallback cb
cb'' <- mk_PrintOperationCreateCustomWidgetCallback cb'
connectSignalFunPtr obj "create-custom-widget" cb'' connectMode
data PrintOperationFailedSignalInfo
instance SignalInfo PrintOperationFailedSignalInfo where
type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PrintOperationFailedCallback cb
cb'' <- mk_PrintOperationFailedCallback cb'
connectSignalFunPtr obj "failed" cb'' connectMode
data PrintOperationFinishedSignalInfo
instance SignalInfo PrintOperationFinishedSignalInfo where
type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PrintOperationFinishedCallback cb
cb'' <- mk_PrintOperationFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' connectMode
type instance O.SignalList PrintOperation = PrintOperationSignalList
type PrintOperationSignalList = ('[ '("createCustomWidget", PrintOperationCreateCustomWidgetSignalInfo), '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_print_operation_new" webkit_print_operation_new ::
Ptr WebKit2.WebView.WebView ->
IO (Ptr PrintOperation)
printOperationNew ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.WebView.IsWebView a) =>
a
-> m PrintOperation
printOperationNew webView = liftIO $ do
webView' <- unsafeManagedPtrCastPtr webView
result <- webkit_print_operation_new webView'
checkUnexpectedReturnNULL "printOperationNew" result
result' <- (wrapObject PrintOperation) result
touchManagedPtr webView
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_print_operation_get_page_setup" webkit_print_operation_get_page_setup ::
Ptr PrintOperation ->
IO (Ptr Gtk.PageSetup.PageSetup)
printOperationGetPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m (Maybe Gtk.PageSetup.PageSetup)
printOperationGetPageSetup printOperation = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
result <- webkit_print_operation_get_page_setup printOperation'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.PageSetup.PageSetup) result'
return result''
touchManagedPtr printOperation
return maybeResult
#if ENABLE_OVERLOADING
data PrintOperationGetPageSetupMethodInfo
instance (signature ~ (m (Maybe Gtk.PageSetup.PageSetup)), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationGetPageSetupMethodInfo a signature where
overloadedMethod _ = printOperationGetPageSetup
#endif
foreign import ccall "webkit_print_operation_get_print_settings" webkit_print_operation_get_print_settings ::
Ptr PrintOperation ->
IO (Ptr Gtk.PrintSettings.PrintSettings)
printOperationGetPrintSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m (Maybe Gtk.PrintSettings.PrintSettings)
printOperationGetPrintSettings printOperation = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
result <- webkit_print_operation_get_print_settings printOperation'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.PrintSettings.PrintSettings) result'
return result''
touchManagedPtr printOperation
return maybeResult
#if ENABLE_OVERLOADING
data PrintOperationGetPrintSettingsMethodInfo
instance (signature ~ (m (Maybe Gtk.PrintSettings.PrintSettings)), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where
overloadedMethod _ = printOperationGetPrintSettings
#endif
foreign import ccall "webkit_print_operation_print" webkit_print_operation_print ::
Ptr PrintOperation ->
IO ()
printOperationPrint ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a) =>
a
-> m ()
printOperationPrint printOperation = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
webkit_print_operation_print printOperation'
touchManagedPtr printOperation
return ()
#if ENABLE_OVERLOADING
data PrintOperationPrintMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPrintOperation a) => O.MethodInfo PrintOperationPrintMethodInfo a signature where
overloadedMethod _ = printOperationPrint
#endif
foreign import ccall "webkit_print_operation_run_dialog" webkit_print_operation_run_dialog ::
Ptr PrintOperation ->
Ptr Gtk.Window.Window ->
IO CUInt
printOperationRunDialog ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) =>
a
-> Maybe (b)
-> m WebKit2.Enums.PrintOperationResponse
printOperationRunDialog printOperation parent = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
jParent' <- unsafeManagedPtrCastPtr jParent
return jParent'
result <- webkit_print_operation_run_dialog printOperation' maybeParent
let result' = (toEnum . fromIntegral) result
touchManagedPtr printOperation
whenJust parent touchManagedPtr
return result'
#if ENABLE_OVERLOADING
data PrintOperationRunDialogMethodInfo
instance (signature ~ (Maybe (b) -> m WebKit2.Enums.PrintOperationResponse), MonadIO m, IsPrintOperation a, Gtk.Window.IsWindow b) => O.MethodInfo PrintOperationRunDialogMethodInfo a signature where
overloadedMethod _ = printOperationRunDialog
#endif
foreign import ccall "webkit_print_operation_set_page_setup" webkit_print_operation_set_page_setup ::
Ptr PrintOperation ->
Ptr Gtk.PageSetup.PageSetup ->
IO ()
printOperationSetPageSetup ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) =>
a
-> b
-> m ()
printOperationSetPageSetup printOperation pageSetup = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
pageSetup' <- unsafeManagedPtrCastPtr pageSetup
webkit_print_operation_set_page_setup printOperation' pageSetup'
touchManagedPtr printOperation
touchManagedPtr pageSetup
return ()
#if ENABLE_OVERLOADING
data PrintOperationSetPageSetupMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPrintOperation a, Gtk.PageSetup.IsPageSetup b) => O.MethodInfo PrintOperationSetPageSetupMethodInfo a signature where
overloadedMethod _ = printOperationSetPageSetup
#endif
foreign import ccall "webkit_print_operation_set_print_settings" webkit_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
-> b
-> m ()
printOperationSetPrintSettings printOperation printSettings = liftIO $ do
printOperation' <- unsafeManagedPtrCastPtr printOperation
printSettings' <- unsafeManagedPtrCastPtr printSettings
webkit_print_operation_set_print_settings printOperation' printSettings'
touchManagedPtr printOperation
touchManagedPtr printSettings
return ()
#if ENABLE_OVERLOADING
data PrintOperationSetPrintSettingsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPrintOperation a, Gtk.PrintSettings.IsPrintSettings b) => O.MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where
overloadedMethod _ = printOperationSetPrintSettings
#endif