#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.PrintCustomWidget
(
PrintCustomWidget(..) ,
IsPrintCustomWidget ,
toPrintCustomWidget ,
noPrintCustomWidget ,
#if ENABLE_OVERLOADING
PrintCustomWidgetGetTitleMethodInfo ,
#endif
printCustomWidgetGetTitle ,
#if ENABLE_OVERLOADING
PrintCustomWidgetGetWidgetMethodInfo ,
#endif
printCustomWidgetGetWidget ,
printCustomWidgetNew ,
#if ENABLE_OVERLOADING
PrintCustomWidgetTitlePropertyInfo ,
#endif
constructPrintCustomWidgetTitle ,
getPrintCustomWidgetTitle ,
#if ENABLE_OVERLOADING
printCustomWidgetTitle ,
#endif
#if ENABLE_OVERLOADING
PrintCustomWidgetWidgetPropertyInfo ,
#endif
constructPrintCustomWidgetWidget ,
getPrintCustomWidgetWidget ,
#if ENABLE_OVERLOADING
printCustomWidgetWidget ,
#endif
C_PrintCustomWidgetApplyCallback ,
PrintCustomWidgetApplyCallback ,
#if ENABLE_OVERLOADING
PrintCustomWidgetApplySignalInfo ,
#endif
afterPrintCustomWidgetApply ,
genClosure_PrintCustomWidgetApply ,
mk_PrintCustomWidgetApplyCallback ,
noPrintCustomWidgetApplyCallback ,
onPrintCustomWidgetApply ,
wrap_PrintCustomWidgetApplyCallback ,
C_PrintCustomWidgetUpdateCallback ,
PrintCustomWidgetUpdateCallback ,
#if ENABLE_OVERLOADING
PrintCustomWidgetUpdateSignalInfo ,
#endif
afterPrintCustomWidgetUpdate ,
genClosure_PrintCustomWidgetUpdate ,
mk_PrintCustomWidgetUpdateCallback ,
noPrintCustomWidgetUpdateCallback ,
onPrintCustomWidgetUpdate ,
wrap_PrintCustomWidgetUpdateCallback ,
) 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.Widget as Gtk.Widget
newtype PrintCustomWidget = PrintCustomWidget (ManagedPtr PrintCustomWidget)
foreign import ccall "webkit_print_custom_widget_get_type"
c_webkit_print_custom_widget_get_type :: IO GType
instance GObject PrintCustomWidget where
gobjectType = c_webkit_print_custom_widget_get_type
class (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o
instance (GObject o, O.IsDescendantOf PrintCustomWidget o) => IsPrintCustomWidget o
instance O.HasParentTypes PrintCustomWidget
type instance O.ParentTypes PrintCustomWidget = '[GObject.Object.Object]
toPrintCustomWidget :: (MonadIO m, IsPrintCustomWidget o) => o -> m PrintCustomWidget
toPrintCustomWidget = liftIO . unsafeCastTo PrintCustomWidget
noPrintCustomWidget :: Maybe PrintCustomWidget
noPrintCustomWidget = Nothing
#if ENABLE_OVERLOADING
type family ResolvePrintCustomWidgetMethod (t :: Symbol) (o :: *) :: * where
ResolvePrintCustomWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePrintCustomWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePrintCustomWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePrintCustomWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePrintCustomWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePrintCustomWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePrintCustomWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePrintCustomWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePrintCustomWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePrintCustomWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePrintCustomWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePrintCustomWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePrintCustomWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePrintCustomWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePrintCustomWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePrintCustomWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePrintCustomWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePrintCustomWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePrintCustomWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePrintCustomWidgetMethod "getTitle" o = PrintCustomWidgetGetTitleMethodInfo
ResolvePrintCustomWidgetMethod "getWidget" o = PrintCustomWidgetGetWidgetMethodInfo
ResolvePrintCustomWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePrintCustomWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePrintCustomWidgetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePrintCustomWidgetMethod t PrintCustomWidget, O.MethodInfo info PrintCustomWidget p) => OL.IsLabel t (PrintCustomWidget -> 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 PrintCustomWidgetApplyCallback =
IO ()
noPrintCustomWidgetApplyCallback :: Maybe PrintCustomWidgetApplyCallback
noPrintCustomWidgetApplyCallback = Nothing
type C_PrintCustomWidgetApplyCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintCustomWidgetApplyCallback :: C_PrintCustomWidgetApplyCallback -> IO (FunPtr C_PrintCustomWidgetApplyCallback)
genClosure_PrintCustomWidgetApply :: MonadIO m => PrintCustomWidgetApplyCallback -> m (GClosure C_PrintCustomWidgetApplyCallback)
genClosure_PrintCustomWidgetApply cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetApplyCallback cb
mk_PrintCustomWidgetApplyCallback cb' >>= B.GClosure.newGClosure
wrap_PrintCustomWidgetApplyCallback ::
PrintCustomWidgetApplyCallback ->
C_PrintCustomWidgetApplyCallback
wrap_PrintCustomWidgetApplyCallback _cb _ _ = do
_cb
onPrintCustomWidgetApply :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetApplyCallback -> m SignalHandlerId
onPrintCustomWidgetApply obj cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetApplyCallback cb
cb'' <- mk_PrintCustomWidgetApplyCallback cb'
connectSignalFunPtr obj "apply" cb'' SignalConnectBefore
afterPrintCustomWidgetApply :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetApplyCallback -> m SignalHandlerId
afterPrintCustomWidgetApply obj cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetApplyCallback cb
cb'' <- mk_PrintCustomWidgetApplyCallback cb'
connectSignalFunPtr obj "apply" cb'' SignalConnectAfter
type PrintCustomWidgetUpdateCallback =
Gtk.PageSetup.PageSetup
-> Gtk.PrintSettings.PrintSettings
-> IO ()
noPrintCustomWidgetUpdateCallback :: Maybe PrintCustomWidgetUpdateCallback
noPrintCustomWidgetUpdateCallback = Nothing
type C_PrintCustomWidgetUpdateCallback =
Ptr () ->
Ptr Gtk.PageSetup.PageSetup ->
Ptr Gtk.PrintSettings.PrintSettings ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PrintCustomWidgetUpdateCallback :: C_PrintCustomWidgetUpdateCallback -> IO (FunPtr C_PrintCustomWidgetUpdateCallback)
genClosure_PrintCustomWidgetUpdate :: MonadIO m => PrintCustomWidgetUpdateCallback -> m (GClosure C_PrintCustomWidgetUpdateCallback)
genClosure_PrintCustomWidgetUpdate cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetUpdateCallback cb
mk_PrintCustomWidgetUpdateCallback cb' >>= B.GClosure.newGClosure
wrap_PrintCustomWidgetUpdateCallback ::
PrintCustomWidgetUpdateCallback ->
C_PrintCustomWidgetUpdateCallback
wrap_PrintCustomWidgetUpdateCallback _cb _ pageSetup printSettings _ = do
pageSetup' <- (newObject Gtk.PageSetup.PageSetup) pageSetup
printSettings' <- (newObject Gtk.PrintSettings.PrintSettings) printSettings
_cb pageSetup' printSettings'
onPrintCustomWidgetUpdate :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetUpdateCallback -> m SignalHandlerId
onPrintCustomWidgetUpdate obj cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetUpdateCallback cb
cb'' <- mk_PrintCustomWidgetUpdateCallback cb'
connectSignalFunPtr obj "update" cb'' SignalConnectBefore
afterPrintCustomWidgetUpdate :: (IsPrintCustomWidget a, MonadIO m) => a -> PrintCustomWidgetUpdateCallback -> m SignalHandlerId
afterPrintCustomWidgetUpdate obj cb = liftIO $ do
let cb' = wrap_PrintCustomWidgetUpdateCallback cb
cb'' <- mk_PrintCustomWidgetUpdateCallback cb'
connectSignalFunPtr obj "update" cb'' SignalConnectAfter
getPrintCustomWidgetTitle :: (MonadIO m, IsPrintCustomWidget o) => o -> m T.Text
getPrintCustomWidgetTitle obj = liftIO $ checkUnexpectedNothing "getPrintCustomWidgetTitle" $ B.Properties.getObjectPropertyString obj "title"
constructPrintCustomWidgetTitle :: (IsPrintCustomWidget o) => T.Text -> IO (GValueConstruct o)
constructPrintCustomWidgetTitle val = B.Properties.constructObjectPropertyString "title" (Just val)
#if ENABLE_OVERLOADING
data PrintCustomWidgetTitlePropertyInfo
instance AttrInfo PrintCustomWidgetTitlePropertyInfo where
type AttrAllowedOps PrintCustomWidgetTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PrintCustomWidgetTitlePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint PrintCustomWidgetTitlePropertyInfo = IsPrintCustomWidget
type AttrGetType PrintCustomWidgetTitlePropertyInfo = T.Text
type AttrLabel PrintCustomWidgetTitlePropertyInfo = "title"
type AttrOrigin PrintCustomWidgetTitlePropertyInfo = PrintCustomWidget
attrGet _ = getPrintCustomWidgetTitle
attrSet _ = undefined
attrConstruct _ = constructPrintCustomWidgetTitle
attrClear _ = undefined
#endif
getPrintCustomWidgetWidget :: (MonadIO m, IsPrintCustomWidget o) => o -> m (Maybe Gtk.Widget.Widget)
getPrintCustomWidgetWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "widget" Gtk.Widget.Widget
constructPrintCustomWidgetWidget :: (IsPrintCustomWidget o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructPrintCustomWidgetWidget val = B.Properties.constructObjectPropertyObject "widget" (Just val)
#if ENABLE_OVERLOADING
data PrintCustomWidgetWidgetPropertyInfo
instance AttrInfo PrintCustomWidgetWidgetPropertyInfo where
type AttrAllowedOps PrintCustomWidgetWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PrintCustomWidgetWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrBaseTypeConstraint PrintCustomWidgetWidgetPropertyInfo = IsPrintCustomWidget
type AttrGetType PrintCustomWidgetWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel PrintCustomWidgetWidgetPropertyInfo = "widget"
type AttrOrigin PrintCustomWidgetWidgetPropertyInfo = PrintCustomWidget
attrGet _ = getPrintCustomWidgetWidget
attrSet _ = undefined
attrConstruct _ = constructPrintCustomWidgetWidget
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList PrintCustomWidget
type instance O.AttributeList PrintCustomWidget = PrintCustomWidgetAttributeList
type PrintCustomWidgetAttributeList = ('[ '("title", PrintCustomWidgetTitlePropertyInfo), '("widget", PrintCustomWidgetWidgetPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
printCustomWidgetTitle :: AttrLabelProxy "title"
printCustomWidgetTitle = AttrLabelProxy
printCustomWidgetWidget :: AttrLabelProxy "widget"
printCustomWidgetWidget = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data PrintCustomWidgetApplySignalInfo
instance SignalInfo PrintCustomWidgetApplySignalInfo where
type HaskellCallbackType PrintCustomWidgetApplySignalInfo = PrintCustomWidgetApplyCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PrintCustomWidgetApplyCallback cb
cb'' <- mk_PrintCustomWidgetApplyCallback cb'
connectSignalFunPtr obj "apply" cb'' connectMode
data PrintCustomWidgetUpdateSignalInfo
instance SignalInfo PrintCustomWidgetUpdateSignalInfo where
type HaskellCallbackType PrintCustomWidgetUpdateSignalInfo = PrintCustomWidgetUpdateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PrintCustomWidgetUpdateCallback cb
cb'' <- mk_PrintCustomWidgetUpdateCallback cb'
connectSignalFunPtr obj "update" cb'' connectMode
type instance O.SignalList PrintCustomWidget = PrintCustomWidgetSignalList
type PrintCustomWidgetSignalList = ('[ '("apply", PrintCustomWidgetApplySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("update", PrintCustomWidgetUpdateSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_print_custom_widget_new" webkit_print_custom_widget_new ::
Ptr Gtk.Widget.Widget ->
CString ->
IO (Ptr PrintCustomWidget)
printCustomWidgetNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
a
-> T.Text
-> m PrintCustomWidget
printCustomWidgetNew widget title = liftIO $ do
widget' <- unsafeManagedPtrCastPtr widget
title' <- textToCString title
result <- webkit_print_custom_widget_new widget' title'
checkUnexpectedReturnNULL "printCustomWidgetNew" result
result' <- (wrapObject PrintCustomWidget) result
touchManagedPtr widget
freeMem title'
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_print_custom_widget_get_title" webkit_print_custom_widget_get_title ::
Ptr PrintCustomWidget ->
IO CString
printCustomWidgetGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCustomWidget a) =>
a
-> m T.Text
printCustomWidgetGetTitle printCustomWidget = liftIO $ do
printCustomWidget' <- unsafeManagedPtrCastPtr printCustomWidget
result <- webkit_print_custom_widget_get_title printCustomWidget'
checkUnexpectedReturnNULL "printCustomWidgetGetTitle" result
result' <- cstringToText result
touchManagedPtr printCustomWidget
return result'
#if ENABLE_OVERLOADING
data PrintCustomWidgetGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintCustomWidget a) => O.MethodInfo PrintCustomWidgetGetTitleMethodInfo a signature where
overloadedMethod _ = printCustomWidgetGetTitle
#endif
foreign import ccall "webkit_print_custom_widget_get_widget" webkit_print_custom_widget_get_widget ::
Ptr PrintCustomWidget ->
IO (Ptr Gtk.Widget.Widget)
printCustomWidgetGetWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCustomWidget a) =>
a
-> m (Maybe Gtk.Widget.Widget)
printCustomWidgetGetWidget printCustomWidget = liftIO $ do
printCustomWidget' <- unsafeManagedPtrCastPtr printCustomWidget
result <- webkit_print_custom_widget_get_widget printCustomWidget'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr printCustomWidget
return maybeResult
#if ENABLE_OVERLOADING
data PrintCustomWidgetGetWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPrintCustomWidget a) => O.MethodInfo PrintCustomWidgetGetWidgetMethodInfo a signature where
overloadedMethod _ = printCustomWidgetGetWidget
#endif