{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.PageSetup
(
PageSetup(..) ,
IsPageSetup ,
toPageSetup ,
#if defined(ENABLE_OVERLOADING)
ResolvePageSetupMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PageSetupCopyMethodInfo ,
#endif
pageSetupCopy ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetBottomMarginMethodInfo ,
#endif
pageSetupGetBottomMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetLeftMarginMethodInfo ,
#endif
pageSetupGetLeftMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetOrientationMethodInfo ,
#endif
pageSetupGetOrientation ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetPageHeightMethodInfo ,
#endif
pageSetupGetPageHeight ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetPageWidthMethodInfo ,
#endif
pageSetupGetPageWidth ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetPaperHeightMethodInfo ,
#endif
pageSetupGetPaperHeight ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetPaperSizeMethodInfo ,
#endif
pageSetupGetPaperSize ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetPaperWidthMethodInfo ,
#endif
pageSetupGetPaperWidth ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetRightMarginMethodInfo ,
#endif
pageSetupGetRightMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupGetTopMarginMethodInfo ,
#endif
pageSetupGetTopMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupLoadFileMethodInfo ,
#endif
pageSetupLoadFile ,
#if defined(ENABLE_OVERLOADING)
PageSetupLoadKeyFileMethodInfo ,
#endif
pageSetupLoadKeyFile ,
pageSetupNew ,
pageSetupNewFromFile ,
pageSetupNewFromGvariant ,
pageSetupNewFromKeyFile ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetBottomMarginMethodInfo ,
#endif
pageSetupSetBottomMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetLeftMarginMethodInfo ,
#endif
pageSetupSetLeftMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetOrientationMethodInfo ,
#endif
pageSetupSetOrientation ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetPaperSizeMethodInfo ,
#endif
pageSetupSetPaperSize ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetPaperSizeAndDefaultMarginsMethodInfo,
#endif
pageSetupSetPaperSizeAndDefaultMargins ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetRightMarginMethodInfo ,
#endif
pageSetupSetRightMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupSetTopMarginMethodInfo ,
#endif
pageSetupSetTopMargin ,
#if defined(ENABLE_OVERLOADING)
PageSetupToFileMethodInfo ,
#endif
pageSetupToFile ,
#if defined(ENABLE_OVERLOADING)
PageSetupToGvariantMethodInfo ,
#endif
pageSetupToGvariant ,
#if defined(ENABLE_OVERLOADING)
PageSetupToKeyFileMethodInfo ,
#endif
pageSetupToKeyFile ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GLib.Structs.KeyFile as GLib.KeyFile
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Structs.PaperSize as Gtk.PaperSize
newtype PageSetup = PageSetup (SP.ManagedPtr PageSetup)
deriving (PageSetup -> PageSetup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PageSetup -> PageSetup -> Bool
$c/= :: PageSetup -> PageSetup -> Bool
== :: PageSetup -> PageSetup -> Bool
$c== :: PageSetup -> PageSetup -> Bool
Eq)
instance SP.ManagedPtrNewtype PageSetup where
toManagedPtr :: PageSetup -> ManagedPtr PageSetup
toManagedPtr (PageSetup ManagedPtr PageSetup
p) = ManagedPtr PageSetup
p
foreign import ccall "gtk_page_setup_get_type"
c_gtk_page_setup_get_type :: IO B.Types.GType
instance B.Types.TypedObject PageSetup where
glibType :: IO GType
glibType = IO GType
c_gtk_page_setup_get_type
instance B.Types.GObject PageSetup
class (SP.GObject o, O.IsDescendantOf PageSetup o) => IsPageSetup o
instance (SP.GObject o, O.IsDescendantOf PageSetup o) => IsPageSetup o
instance O.HasParentTypes PageSetup
type instance O.ParentTypes PageSetup = '[GObject.Object.Object]
toPageSetup :: (MIO.MonadIO m, IsPageSetup o) => o -> m PageSetup
toPageSetup :: forall (m :: * -> *) o.
(MonadIO m, IsPageSetup o) =>
o -> m PageSetup
toPageSetup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PageSetup -> PageSetup
PageSetup
instance B.GValue.IsGValue (Maybe PageSetup) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_page_setup_get_type
gvalueSet_ :: Ptr GValue -> Maybe PageSetup -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PageSetup
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr PageSetup)
gvalueSet_ Ptr GValue
gv (P.Just PageSetup
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PageSetup
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PageSetup)
gvalueGet_ Ptr GValue
gv = do
Ptr PageSetup
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PageSetup)
if Ptr PageSetup
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PageSetup -> PageSetup
PageSetup Ptr PageSetup
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePageSetupMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePageSetupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePageSetupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePageSetupMethod "copy" o = PageSetupCopyMethodInfo
ResolvePageSetupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePageSetupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePageSetupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePageSetupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePageSetupMethod "loadFile" o = PageSetupLoadFileMethodInfo
ResolvePageSetupMethod "loadKeyFile" o = PageSetupLoadKeyFileMethodInfo
ResolvePageSetupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePageSetupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePageSetupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePageSetupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePageSetupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePageSetupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePageSetupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePageSetupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePageSetupMethod "toFile" o = PageSetupToFileMethodInfo
ResolvePageSetupMethod "toGvariant" o = PageSetupToGvariantMethodInfo
ResolvePageSetupMethod "toKeyFile" o = PageSetupToKeyFileMethodInfo
ResolvePageSetupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePageSetupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePageSetupMethod "getBottomMargin" o = PageSetupGetBottomMarginMethodInfo
ResolvePageSetupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePageSetupMethod "getLeftMargin" o = PageSetupGetLeftMarginMethodInfo
ResolvePageSetupMethod "getOrientation" o = PageSetupGetOrientationMethodInfo
ResolvePageSetupMethod "getPageHeight" o = PageSetupGetPageHeightMethodInfo
ResolvePageSetupMethod "getPageWidth" o = PageSetupGetPageWidthMethodInfo
ResolvePageSetupMethod "getPaperHeight" o = PageSetupGetPaperHeightMethodInfo
ResolvePageSetupMethod "getPaperSize" o = PageSetupGetPaperSizeMethodInfo
ResolvePageSetupMethod "getPaperWidth" o = PageSetupGetPaperWidthMethodInfo
ResolvePageSetupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePageSetupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePageSetupMethod "getRightMargin" o = PageSetupGetRightMarginMethodInfo
ResolvePageSetupMethod "getTopMargin" o = PageSetupGetTopMarginMethodInfo
ResolvePageSetupMethod "setBottomMargin" o = PageSetupSetBottomMarginMethodInfo
ResolvePageSetupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePageSetupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePageSetupMethod "setLeftMargin" o = PageSetupSetLeftMarginMethodInfo
ResolvePageSetupMethod "setOrientation" o = PageSetupSetOrientationMethodInfo
ResolvePageSetupMethod "setPaperSize" o = PageSetupSetPaperSizeMethodInfo
ResolvePageSetupMethod "setPaperSizeAndDefaultMargins" o = PageSetupSetPaperSizeAndDefaultMarginsMethodInfo
ResolvePageSetupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePageSetupMethod "setRightMargin" o = PageSetupSetRightMarginMethodInfo
ResolvePageSetupMethod "setTopMargin" o = PageSetupSetTopMarginMethodInfo
ResolvePageSetupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePageSetupMethod t PageSetup, O.OverloadedMethod info PageSetup p) => OL.IsLabel t (PageSetup -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePageSetupMethod t PageSetup, O.OverloadedMethod info PageSetup p, R.HasField t PageSetup p) => R.HasField t PageSetup p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePageSetupMethod t PageSetup, O.OverloadedMethodInfo info PageSetup) => OL.IsLabel t (O.MethodProxy info PageSetup) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PageSetup
type instance O.AttributeList PageSetup = PageSetupAttributeList
type PageSetupAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PageSetup = PageSetupSignalList
type PageSetupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_page_setup_new" gtk_page_setup_new ::
IO (Ptr PageSetup)
pageSetupNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m PageSetup
pageSetupNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m PageSetup
pageSetupNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
result <- IO (Ptr PageSetup)
gtk_page_setup_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupNew" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PageSetup -> PageSetup
PageSetup) Ptr PageSetup
result
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_page_setup_new_from_file" gtk_page_setup_new_from_file ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr PageSetup)
pageSetupNewFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Char]
-> m PageSetup
pageSetupNewFromFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
[Char] -> m PageSetup
pageSetupNewFromFile [Char]
fileName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
fileName' <- [Char] -> IO CString
stringToCString [Char]
fileName
forall a b. IO a -> IO b -> IO a
onException (do
Ptr PageSetup
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ CString -> Ptr (Ptr GError) -> IO (Ptr PageSetup)
gtk_page_setup_new_from_file CString
fileName'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupNewFromFile" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PageSetup -> PageSetup
PageSetup) Ptr PageSetup
result
forall a. Ptr a -> IO ()
freeMem CString
fileName'
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
) (do
forall a. Ptr a -> IO ()
freeMem CString
fileName'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_page_setup_new_from_gvariant" gtk_page_setup_new_from_gvariant ::
Ptr GVariant ->
IO (Ptr PageSetup)
pageSetupNewFromGvariant ::
(B.CallStack.HasCallStack, MonadIO m) =>
GVariant
-> m PageSetup
pageSetupNewFromGvariant :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
GVariant -> m PageSetup
pageSetupNewFromGvariant GVariant
variant = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GVariant
variant' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
Ptr PageSetup
result <- Ptr GVariant -> IO (Ptr PageSetup)
gtk_page_setup_new_from_gvariant Ptr GVariant
variant'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupNewFromGvariant" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PageSetup -> PageSetup
PageSetup) Ptr PageSetup
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
variant
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_page_setup_new_from_key_file" gtk_page_setup_new_from_key_file ::
Ptr GLib.KeyFile.KeyFile ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr PageSetup)
pageSetupNewFromKeyFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
GLib.KeyFile.KeyFile
-> Maybe (T.Text)
-> m PageSetup
pageSetupNewFromKeyFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
KeyFile -> Maybe Text -> m PageSetup
pageSetupNewFromKeyFile KeyFile
keyFile Maybe Text
groupName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr KeyFile
keyFile' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr KeyFile
keyFile
CString
maybeGroupName <- case Maybe Text
groupName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jGroupName -> do
CString
jGroupName' <- Text -> IO CString
textToCString Text
jGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jGroupName'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr PageSetup
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr KeyFile -> CString -> Ptr (Ptr GError) -> IO (Ptr PageSetup)
gtk_page_setup_new_from_key_file Ptr KeyFile
keyFile' CString
maybeGroupName
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupNewFromKeyFile" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PageSetup -> PageSetup
PageSetup) Ptr PageSetup
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr KeyFile
keyFile
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
) (do
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_page_setup_copy" gtk_page_setup_copy ::
Ptr PageSetup ->
IO (Ptr PageSetup)
pageSetupCopy ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> m PageSetup
pageSetupCopy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> m PageSetup
pageSetupCopy a
other = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
other' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
other
Ptr PageSetup
result <- Ptr PageSetup -> IO (Ptr PageSetup)
gtk_page_setup_copy Ptr PageSetup
other'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupCopy" Ptr PageSetup
result
PageSetup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PageSetup -> PageSetup
PageSetup) Ptr PageSetup
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
other
forall (m :: * -> *) a. Monad m => a -> m a
return PageSetup
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupCopyMethodInfo
instance (signature ~ (m PageSetup), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupCopyMethodInfo a signature where
overloadedMethod = pageSetupCopy
instance O.OverloadedMethodInfo PageSetupCopyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupCopy"
})
#endif
foreign import ccall "gtk_page_setup_get_bottom_margin" gtk_page_setup_get_bottom_margin ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetBottomMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetBottomMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetBottomMargin a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_bottom_margin Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetBottomMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetBottomMarginMethodInfo a signature where
overloadedMethod = pageSetupGetBottomMargin
instance O.OverloadedMethodInfo PageSetupGetBottomMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetBottomMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetBottomMargin"
})
#endif
foreign import ccall "gtk_page_setup_get_left_margin" gtk_page_setup_get_left_margin ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetLeftMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetLeftMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetLeftMargin a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_left_margin Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetLeftMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetLeftMarginMethodInfo a signature where
overloadedMethod = pageSetupGetLeftMargin
instance O.OverloadedMethodInfo PageSetupGetLeftMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetLeftMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetLeftMargin"
})
#endif
foreign import ccall "gtk_page_setup_get_orientation" gtk_page_setup_get_orientation ::
Ptr PageSetup ->
IO CUInt
pageSetupGetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> m Gtk.Enums.PageOrientation
pageSetupGetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> m PageOrientation
pageSetupGetOrientation a
setup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
CUInt
result <- Ptr PageSetup -> IO CUInt
gtk_page_setup_get_orientation Ptr PageSetup
setup'
let result' :: PageOrientation
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return PageOrientation
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetOrientationMethodInfo
instance (signature ~ (m Gtk.Enums.PageOrientation), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetOrientationMethodInfo a signature where
overloadedMethod = pageSetupGetOrientation
instance O.OverloadedMethodInfo PageSetupGetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetOrientation"
})
#endif
foreign import ccall "gtk_page_setup_get_page_height" gtk_page_setup_get_page_height ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetPageHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetPageHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetPageHeight a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_page_height Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetPageHeightMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetPageHeightMethodInfo a signature where
overloadedMethod = pageSetupGetPageHeight
instance O.OverloadedMethodInfo PageSetupGetPageHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetPageHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetPageHeight"
})
#endif
foreign import ccall "gtk_page_setup_get_page_width" gtk_page_setup_get_page_width ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetPageWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetPageWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetPageWidth a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_page_width Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetPageWidthMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetPageWidthMethodInfo a signature where
overloadedMethod = pageSetupGetPageWidth
instance O.OverloadedMethodInfo PageSetupGetPageWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetPageWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetPageWidth"
})
#endif
foreign import ccall "gtk_page_setup_get_paper_height" gtk_page_setup_get_paper_height ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetPaperHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetPaperHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetPaperHeight a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_paper_height Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetPaperHeightMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetPaperHeightMethodInfo a signature where
overloadedMethod = pageSetupGetPaperHeight
instance O.OverloadedMethodInfo PageSetupGetPaperHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetPaperHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetPaperHeight"
})
#endif
foreign import ccall "gtk_page_setup_get_paper_size" gtk_page_setup_get_paper_size ::
Ptr PageSetup ->
IO (Ptr Gtk.PaperSize.PaperSize)
pageSetupGetPaperSize ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> m Gtk.PaperSize.PaperSize
pageSetupGetPaperSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> m PaperSize
pageSetupGetPaperSize a
setup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr PaperSize
result <- Ptr PageSetup -> IO (Ptr PaperSize)
gtk_page_setup_get_paper_size Ptr PageSetup
setup'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupGetPaperSize" Ptr PaperSize
result
PaperSize
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr PaperSize -> PaperSize
Gtk.PaperSize.PaperSize) Ptr PaperSize
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return PaperSize
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetPaperSizeMethodInfo
instance (signature ~ (m Gtk.PaperSize.PaperSize), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetPaperSizeMethodInfo a signature where
overloadedMethod = pageSetupGetPaperSize
instance O.OverloadedMethodInfo PageSetupGetPaperSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetPaperSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetPaperSize"
})
#endif
foreign import ccall "gtk_page_setup_get_paper_width" gtk_page_setup_get_paper_width ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetPaperWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetPaperWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetPaperWidth a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_paper_width Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetPaperWidthMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetPaperWidthMethodInfo a signature where
overloadedMethod = pageSetupGetPaperWidth
instance O.OverloadedMethodInfo PageSetupGetPaperWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetPaperWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetPaperWidth"
})
#endif
foreign import ccall "gtk_page_setup_get_right_margin" gtk_page_setup_get_right_margin ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetRightMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetRightMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetRightMargin a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_right_margin Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetRightMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetRightMarginMethodInfo a signature where
overloadedMethod = pageSetupGetRightMargin
instance O.OverloadedMethodInfo PageSetupGetRightMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetRightMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetRightMargin"
})
#endif
foreign import ccall "gtk_page_setup_get_top_margin" gtk_page_setup_get_top_margin ::
Ptr PageSetup ->
CUInt ->
IO CDouble
pageSetupGetTopMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.Unit
-> m Double
pageSetupGetTopMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Unit -> m Double
pageSetupGetTopMargin a
setup Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PageSetup -> CUInt -> IO CDouble
gtk_page_setup_get_top_margin Ptr PageSetup
setup' CUInt
unit'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupGetTopMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupGetTopMarginMethodInfo a signature where
overloadedMethod = pageSetupGetTopMargin
instance O.OverloadedMethodInfo PageSetupGetTopMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupGetTopMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupGetTopMargin"
})
#endif
foreign import ccall "gtk_page_setup_load_file" gtk_page_setup_load_file ::
Ptr PageSetup ->
CString ->
Ptr (Ptr GError) ->
IO CInt
pageSetupLoadFile ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> [Char]
-> m ()
pageSetupLoadFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> [Char] -> m ()
pageSetupLoadFile a
setup [Char]
fileName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
CString
fileName' <- [Char] -> IO CString
stringToCString [Char]
fileName
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr PageSetup -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_page_setup_load_file Ptr PageSetup
setup' CString
fileName'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. Ptr a -> IO ()
freeMem CString
fileName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
fileName'
)
#if defined(ENABLE_OVERLOADING)
data PageSetupLoadFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupLoadFileMethodInfo a signature where
overloadedMethod = pageSetupLoadFile
instance O.OverloadedMethodInfo PageSetupLoadFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupLoadFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupLoadFile"
})
#endif
foreign import ccall "gtk_page_setup_load_key_file" gtk_page_setup_load_key_file ::
Ptr PageSetup ->
Ptr GLib.KeyFile.KeyFile ->
CString ->
Ptr (Ptr GError) ->
IO CInt
pageSetupLoadKeyFile ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> GLib.KeyFile.KeyFile
-> Maybe (T.Text)
-> m ()
pageSetupLoadKeyFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> KeyFile -> Maybe Text -> m ()
pageSetupLoadKeyFile a
setup KeyFile
keyFile Maybe Text
groupName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr KeyFile
keyFile' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr KeyFile
keyFile
CString
maybeGroupName <- case Maybe Text
groupName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jGroupName -> do
CString
jGroupName' <- Text -> IO CString
textToCString Text
jGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jGroupName'
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr PageSetup
-> Ptr KeyFile -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_page_setup_load_key_file Ptr PageSetup
setup' Ptr KeyFile
keyFile' CString
maybeGroupName
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr KeyFile
keyFile
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
)
#if defined(ENABLE_OVERLOADING)
data PageSetupLoadKeyFileMethodInfo
instance (signature ~ (GLib.KeyFile.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupLoadKeyFileMethodInfo a signature where
overloadedMethod = pageSetupLoadKeyFile
instance O.OverloadedMethodInfo PageSetupLoadKeyFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupLoadKeyFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupLoadKeyFile"
})
#endif
foreign import ccall "gtk_page_setup_set_bottom_margin" gtk_page_setup_set_bottom_margin ::
Ptr PageSetup ->
CDouble ->
CUInt ->
IO ()
pageSetupSetBottomMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
pageSetupSetBottomMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Double -> Unit -> m ()
pageSetupSetBottomMargin a
setup Double
margin Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let margin' :: CDouble
margin' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PageSetup -> CDouble -> CUInt -> IO ()
gtk_page_setup_set_bottom_margin Ptr PageSetup
setup' CDouble
margin' CUInt
unit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetBottomMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetBottomMarginMethodInfo a signature where
overloadedMethod = pageSetupSetBottomMargin
instance O.OverloadedMethodInfo PageSetupSetBottomMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetBottomMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetBottomMargin"
})
#endif
foreign import ccall "gtk_page_setup_set_left_margin" gtk_page_setup_set_left_margin ::
Ptr PageSetup ->
CDouble ->
CUInt ->
IO ()
pageSetupSetLeftMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
pageSetupSetLeftMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Double -> Unit -> m ()
pageSetupSetLeftMargin a
setup Double
margin Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let margin' :: CDouble
margin' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PageSetup -> CDouble -> CUInt -> IO ()
gtk_page_setup_set_left_margin Ptr PageSetup
setup' CDouble
margin' CUInt
unit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetLeftMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetLeftMarginMethodInfo a signature where
overloadedMethod = pageSetupSetLeftMargin
instance O.OverloadedMethodInfo PageSetupSetLeftMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetLeftMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetLeftMargin"
})
#endif
foreign import ccall "gtk_page_setup_set_orientation" gtk_page_setup_set_orientation ::
Ptr PageSetup ->
CUInt ->
IO ()
pageSetupSetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.Enums.PageOrientation
-> m ()
pageSetupSetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> PageOrientation -> m ()
pageSetupSetOrientation a
setup PageOrientation
orientation = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let orientation' :: CUInt
orientation' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) PageOrientation
orientation
Ptr PageSetup -> CUInt -> IO ()
gtk_page_setup_set_orientation Ptr PageSetup
setup' CUInt
orientation'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetOrientationMethodInfo
instance (signature ~ (Gtk.Enums.PageOrientation -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetOrientationMethodInfo a signature where
overloadedMethod = pageSetupSetOrientation
instance O.OverloadedMethodInfo PageSetupSetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetOrientation"
})
#endif
foreign import ccall "gtk_page_setup_set_paper_size" gtk_page_setup_set_paper_size ::
Ptr PageSetup ->
Ptr Gtk.PaperSize.PaperSize ->
IO ()
pageSetupSetPaperSize ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.PaperSize.PaperSize
-> m ()
pageSetupSetPaperSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> PaperSize -> m ()
pageSetupSetPaperSize a
setup PaperSize
size = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr PaperSize
size' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaperSize
size
Ptr PageSetup -> Ptr PaperSize -> IO ()
gtk_page_setup_set_paper_size Ptr PageSetup
setup' Ptr PaperSize
size'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaperSize
size
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetPaperSizeMethodInfo
instance (signature ~ (Gtk.PaperSize.PaperSize -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetPaperSizeMethodInfo a signature where
overloadedMethod = pageSetupSetPaperSize
instance O.OverloadedMethodInfo PageSetupSetPaperSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetPaperSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetPaperSize"
})
#endif
foreign import ccall "gtk_page_setup_set_paper_size_and_default_margins" gtk_page_setup_set_paper_size_and_default_margins ::
Ptr PageSetup ->
Ptr Gtk.PaperSize.PaperSize ->
IO ()
pageSetupSetPaperSizeAndDefaultMargins ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Gtk.PaperSize.PaperSize
-> m ()
pageSetupSetPaperSizeAndDefaultMargins :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> PaperSize -> m ()
pageSetupSetPaperSizeAndDefaultMargins a
setup PaperSize
size = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr PaperSize
size' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaperSize
size
Ptr PageSetup -> Ptr PaperSize -> IO ()
gtk_page_setup_set_paper_size_and_default_margins Ptr PageSetup
setup' Ptr PaperSize
size'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaperSize
size
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetPaperSizeAndDefaultMarginsMethodInfo
instance (signature ~ (Gtk.PaperSize.PaperSize -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetPaperSizeAndDefaultMarginsMethodInfo a signature where
overloadedMethod = pageSetupSetPaperSizeAndDefaultMargins
instance O.OverloadedMethodInfo PageSetupSetPaperSizeAndDefaultMarginsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetPaperSizeAndDefaultMargins",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetPaperSizeAndDefaultMargins"
})
#endif
foreign import ccall "gtk_page_setup_set_right_margin" gtk_page_setup_set_right_margin ::
Ptr PageSetup ->
CDouble ->
CUInt ->
IO ()
pageSetupSetRightMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
pageSetupSetRightMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Double -> Unit -> m ()
pageSetupSetRightMargin a
setup Double
margin Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let margin' :: CDouble
margin' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PageSetup -> CDouble -> CUInt -> IO ()
gtk_page_setup_set_right_margin Ptr PageSetup
setup' CDouble
margin' CUInt
unit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetRightMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetRightMarginMethodInfo a signature where
overloadedMethod = pageSetupSetRightMargin
instance O.OverloadedMethodInfo PageSetupSetRightMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetRightMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetRightMargin"
})
#endif
foreign import ccall "gtk_page_setup_set_top_margin" gtk_page_setup_set_top_margin ::
Ptr PageSetup ->
CDouble ->
CUInt ->
IO ()
pageSetupSetTopMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
pageSetupSetTopMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> Double -> Unit -> m ()
pageSetupSetTopMargin a
setup Double
margin Unit
unit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
let margin' :: CDouble
margin' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PageSetup -> CDouble -> CUInt -> IO ()
gtk_page_setup_set_top_margin Ptr PageSetup
setup' CDouble
margin' CUInt
unit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupSetTopMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupSetTopMarginMethodInfo a signature where
overloadedMethod = pageSetupSetTopMargin
instance O.OverloadedMethodInfo PageSetupSetTopMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupSetTopMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupSetTopMargin"
})
#endif
foreign import ccall "gtk_page_setup_to_file" gtk_page_setup_to_file ::
Ptr PageSetup ->
CString ->
Ptr (Ptr GError) ->
IO CInt
pageSetupToFile ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> [Char]
-> m ()
pageSetupToFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> [Char] -> m ()
pageSetupToFile a
setup [Char]
fileName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
CString
fileName' <- [Char] -> IO CString
stringToCString [Char]
fileName
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr PageSetup -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_page_setup_to_file Ptr PageSetup
setup' CString
fileName'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. Ptr a -> IO ()
freeMem CString
fileName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall a. Ptr a -> IO ()
freeMem CString
fileName'
)
#if defined(ENABLE_OVERLOADING)
data PageSetupToFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupToFileMethodInfo a signature where
overloadedMethod = pageSetupToFile
instance O.OverloadedMethodInfo PageSetupToFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupToFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupToFile"
})
#endif
foreign import ccall "gtk_page_setup_to_gvariant" gtk_page_setup_to_gvariant ::
Ptr PageSetup ->
IO (Ptr GVariant)
pageSetupToGvariant ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> m GVariant
pageSetupToGvariant :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> m GVariant
pageSetupToGvariant a
setup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr GVariant
result <- Ptr PageSetup -> IO (Ptr GVariant)
gtk_page_setup_to_gvariant Ptr PageSetup
setup'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pageSetupToGvariant" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data PageSetupToGvariantMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupToGvariantMethodInfo a signature where
overloadedMethod = pageSetupToGvariant
instance O.OverloadedMethodInfo PageSetupToGvariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupToGvariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupToGvariant"
})
#endif
foreign import ccall "gtk_page_setup_to_key_file" gtk_page_setup_to_key_file ::
Ptr PageSetup ->
Ptr GLib.KeyFile.KeyFile ->
CString ->
IO ()
pageSetupToKeyFile ::
(B.CallStack.HasCallStack, MonadIO m, IsPageSetup a) =>
a
-> GLib.KeyFile.KeyFile
-> Maybe (T.Text)
-> m ()
pageSetupToKeyFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
a -> KeyFile -> Maybe Text -> m ()
pageSetupToKeyFile a
setup KeyFile
keyFile Maybe Text
groupName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
setup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
setup
Ptr KeyFile
keyFile' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr KeyFile
keyFile
CString
maybeGroupName <- case Maybe Text
groupName of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jGroupName -> do
CString
jGroupName' <- Text -> IO CString
textToCString Text
jGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jGroupName'
Ptr PageSetup -> Ptr KeyFile -> CString -> IO ()
gtk_page_setup_to_key_file Ptr PageSetup
setup' Ptr KeyFile
keyFile' CString
maybeGroupName
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
setup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr KeyFile
keyFile
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PageSetupToKeyFileMethodInfo
instance (signature ~ (GLib.KeyFile.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, IsPageSetup a) => O.OverloadedMethod PageSetupToKeyFileMethodInfo a signature where
overloadedMethod = pageSetupToKeyFile
instance O.OverloadedMethodInfo PageSetupToKeyFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.PageSetup.pageSetupToKeyFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-PageSetup.html#v:pageSetupToKeyFile"
})
#endif