gi-gtk-0.3.18.12: GI/Gtk/Objects/PageSetup.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.PageSetup
(
-- * Exported types
PageSetup(..) ,
PageSetupK ,
toPageSetup ,
noPageSetup ,
-- * Methods
-- ** pageSetupCopy
pageSetupCopy ,
-- ** pageSetupGetBottomMargin
pageSetupGetBottomMargin ,
-- ** pageSetupGetLeftMargin
pageSetupGetLeftMargin ,
-- ** pageSetupGetOrientation
pageSetupGetOrientation ,
-- ** pageSetupGetPageHeight
pageSetupGetPageHeight ,
-- ** pageSetupGetPageWidth
pageSetupGetPageWidth ,
-- ** pageSetupGetPaperHeight
pageSetupGetPaperHeight ,
-- ** pageSetupGetPaperSize
pageSetupGetPaperSize ,
-- ** pageSetupGetPaperWidth
pageSetupGetPaperWidth ,
-- ** pageSetupGetRightMargin
pageSetupGetRightMargin ,
-- ** pageSetupGetTopMargin
pageSetupGetTopMargin ,
-- ** pageSetupLoadFile
pageSetupLoadFile ,
-- ** pageSetupLoadKeyFile
pageSetupLoadKeyFile ,
-- ** pageSetupNew
pageSetupNew ,
-- ** pageSetupNewFromFile
pageSetupNewFromFile ,
-- ** pageSetupNewFromKeyFile
pageSetupNewFromKeyFile ,
-- ** pageSetupSetBottomMargin
pageSetupSetBottomMargin ,
-- ** pageSetupSetLeftMargin
pageSetupSetLeftMargin ,
-- ** pageSetupSetOrientation
pageSetupSetOrientation ,
-- ** pageSetupSetPaperSize
pageSetupSetPaperSize ,
-- ** pageSetupSetPaperSizeAndDefaultMargins
pageSetupSetPaperSizeAndDefaultMargins ,
-- ** pageSetupSetRightMargin
pageSetupSetRightMargin ,
-- ** pageSetupSetTopMargin
pageSetupSetTopMargin ,
-- ** pageSetupToFile
pageSetupToFile ,
-- ** pageSetupToKeyFile
pageSetupToKeyFile ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype PageSetup = PageSetup (ForeignPtr PageSetup)
foreign import ccall "gtk_page_setup_get_type"
c_gtk_page_setup_get_type :: IO GType
type instance ParentTypes PageSetup = PageSetupParentTypes
type PageSetupParentTypes = '[GObject.Object]
instance GObject PageSetup where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_page_setup_get_type
class GObject o => PageSetupK o
instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o
toPageSetup :: PageSetupK o => o -> IO PageSetup
toPageSetup = unsafeCastTo PageSetup
noPageSetup :: Maybe PageSetup
noPageSetup = Nothing
type instance AttributeList PageSetup = PageSetupAttributeList
type PageSetupAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList PageSetup = PageSetupSignalList
type PageSetupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method PageSetup::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_new" gtk_page_setup_new ::
IO (Ptr PageSetup)
pageSetupNew ::
(MonadIO m) =>
m PageSetup
pageSetupNew = liftIO $ do
result <- gtk_page_setup_new
checkUnexpectedReturnNULL "gtk_page_setup_new" result
result' <- (wrapObject PageSetup) result
return result'
-- method PageSetup::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_new_from_file" gtk_page_setup_new_from_file ::
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO (Ptr PageSetup)
pageSetupNewFromFile ::
(MonadIO m) =>
[Char] -> -- file_name
m PageSetup
pageSetupNewFromFile file_name = liftIO $ do
file_name' <- stringToCString file_name
onException (do
result <- propagateGError $ gtk_page_setup_new_from_file file_name'
checkUnexpectedReturnNULL "gtk_page_setup_new_from_file" result
result' <- (wrapObject PageSetup) result
freeMem file_name'
return result'
) (do
freeMem file_name'
)
-- method PageSetup::new_from_key_file
-- method type : Constructor
-- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_new_from_key_file" gtk_page_setup_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PageSetup)
pageSetupNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m PageSetup
pageSetupNewFromKeyFile key_file group_name = liftIO $ do
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
result <- propagateGError $ gtk_page_setup_new_from_key_file key_file' maybeGroup_name
checkUnexpectedReturnNULL "gtk_page_setup_new_from_key_file" result
result' <- (wrapObject PageSetup) result
touchManagedPtr key_file
freeMem maybeGroup_name
return result'
) (do
freeMem maybeGroup_name
)
-- method PageSetup::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_copy" gtk_page_setup_copy ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO (Ptr PageSetup)
pageSetupCopy ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PageSetup
pageSetupCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_copy _obj'
checkUnexpectedReturnNULL "gtk_page_setup_copy" result
result' <- (wrapObject PageSetup) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_bottom_margin" gtk_page_setup_get_bottom_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetBottomMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetBottomMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_bottom_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_left_margin" gtk_page_setup_get_left_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetLeftMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetLeftMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_left_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageOrientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_orientation" gtk_page_setup_get_orientation ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO CUInt
pageSetupGetOrientation ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PageOrientation
pageSetupGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_page_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_page_height" gtk_page_setup_get_page_height ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPageHeight ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPageHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_page_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_page_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_page_width" gtk_page_setup_get_page_width ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPageWidth ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPageWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_page_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_height" gtk_page_setup_get_paper_height ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPaperHeight ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPaperHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_paper_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_size" gtk_page_setup_get_paper_size ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
IO (Ptr PaperSize)
pageSetupGetPaperSize ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
m PaperSize
pageSetupGetPaperSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_page_setup_get_paper_size _obj'
checkUnexpectedReturnNULL "gtk_page_setup_get_paper_size" result
result' <- (newBoxed PaperSize) result
touchManagedPtr _obj
return result'
-- method PageSetup::get_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_paper_width" gtk_page_setup_get_paper_width ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetPaperWidth ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetPaperWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_paper_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_right_margin" gtk_page_setup_get_right_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetRightMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetRightMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_right_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::get_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_get_top_margin" gtk_page_setup_get_top_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
pageSetupGetTopMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Unit -> -- unit
m Double
pageSetupGetTopMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_page_setup_get_top_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PageSetup::load_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_load_file" gtk_page_setup_load_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupLoadFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
pageSetupLoadFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_page_setup_load_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PageSetup::load_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_load_key_file" gtk_page_setup_load_key_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupLoadKeyFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
Maybe (T.Text) -> -- group_name
m ()
pageSetupLoadKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
maybeGroup_name <- case group_name of
Nothing -> return nullPtr
Just jGroup_name -> do
jGroup_name' <- textToCString jGroup_name
return jGroup_name'
onException (do
_ <- propagateGError $ gtk_page_setup_load_key_file _obj' key_file' maybeGroup_name
touchManagedPtr _obj
touchManagedPtr key_file
freeMem maybeGroup_name
return ()
) (do
freeMem maybeGroup_name
)
-- method PageSetup::set_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_bottom_margin" gtk_page_setup_set_bottom_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetBottomMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetBottomMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_bottom_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_left_margin" gtk_page_setup_set_left_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetLeftMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetLeftMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_left_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_orientation" gtk_page_setup_set_orientation ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CUInt -> -- orientation : TInterface "Gtk" "PageOrientation"
IO ()
pageSetupSetOrientation ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PageOrientation -> -- orientation
m ()
pageSetupSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_page_setup_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
-- method PageSetup::set_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_paper_size" gtk_page_setup_set_paper_size ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize"
IO ()
pageSetupSetPaperSize ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PaperSize -> -- size
m ()
pageSetupSetPaperSize _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size' = unsafeManagedPtrGetPtr size
gtk_page_setup_set_paper_size _obj' size'
touchManagedPtr _obj
touchManagedPtr size
return ()
-- method PageSetup::set_paper_size_and_default_margins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_paper_size_and_default_margins" gtk_page_setup_set_paper_size_and_default_margins ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr PaperSize -> -- size : TInterface "Gtk" "PaperSize"
IO ()
pageSetupSetPaperSizeAndDefaultMargins ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
PaperSize -> -- size
m ()
pageSetupSetPaperSizeAndDefaultMargins _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size' = unsafeManagedPtrGetPtr size
gtk_page_setup_set_paper_size_and_default_margins _obj' size'
touchManagedPtr _obj
touchManagedPtr size
return ()
-- method PageSetup::set_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_right_margin" gtk_page_setup_set_right_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetRightMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetRightMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_right_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::set_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_set_top_margin" gtk_page_setup_set_top_margin ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CDouble -> -- margin : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
pageSetupSetTopMargin ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
Double -> -- margin
Unit -> -- unit
m ()
pageSetupSetTopMargin _obj margin unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let margin' = realToFrac margin
let unit' = (fromIntegral . fromEnum) unit
gtk_page_setup_set_top_margin _obj' margin' unit'
touchManagedPtr _obj
return ()
-- method PageSetup::to_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_page_setup_to_file" gtk_page_setup_to_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
pageSetupToFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
[Char] -> -- file_name
m ()
pageSetupToFile _obj file_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
file_name' <- stringToCString file_name
onException (do
_ <- propagateGError $ gtk_page_setup_to_file _obj' file_name'
touchManagedPtr _obj
freeMem file_name'
return ()
) (do
freeMem file_name'
)
-- method PageSetup::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_page_setup_to_key_file" gtk_page_setup_to_key_file ::
Ptr PageSetup -> -- _obj : TInterface "Gtk" "PageSetup"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
pageSetupToKeyFile ::
(MonadIO m, PageSetupK a) =>
a -> -- _obj
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m ()
pageSetupToKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
gtk_page_setup_to_key_file _obj' key_file' group_name'
touchManagedPtr _obj
touchManagedPtr key_file
freeMem group_name'
return ()