gi-gtk-0.3.18.12: GI/Gtk/Structs/PaperSize.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)
GtkPaperSize handles paper sizes. It uses the standard called
[PWG 5101.1-2002 PWG: Standard for Media Standardized Names](http://www.pwg.org/standards.html)
to name the paper sizes (and to get the data for the page sizes).
In addition to standard paper sizes, GtkPaperSize allows to
construct custom paper sizes with arbitrary dimensions.
The #GtkPaperSize object stores not only the dimensions (width
and height) of a paper size and its name, it also provides
default [print margins][print-margins].
Printing support has been added in GTK+ 2.10.
-}
module GI.Gtk.Structs.PaperSize
(
-- * Exported types
PaperSize(..) ,
noPaperSize ,
-- * Methods
-- ** paperSizeCopy
paperSizeCopy ,
-- ** paperSizeFree
paperSizeFree ,
-- ** paperSizeGetDefaultBottomMargin
paperSizeGetDefaultBottomMargin ,
-- ** paperSizeGetDefaultLeftMargin
paperSizeGetDefaultLeftMargin ,
-- ** paperSizeGetDefaultRightMargin
paperSizeGetDefaultRightMargin ,
-- ** paperSizeGetDefaultTopMargin
paperSizeGetDefaultTopMargin ,
-- ** paperSizeGetDisplayName
paperSizeGetDisplayName ,
-- ** paperSizeGetHeight
paperSizeGetHeight ,
-- ** paperSizeGetName
paperSizeGetName ,
-- ** paperSizeGetPpdName
paperSizeGetPpdName ,
-- ** paperSizeGetWidth
paperSizeGetWidth ,
-- ** paperSizeIsCustom
paperSizeIsCustom ,
-- ** paperSizeIsEqual
paperSizeIsEqual ,
-- ** paperSizeIsIpp
paperSizeIsIpp ,
-- ** paperSizeNew
paperSizeNew ,
-- ** paperSizeNewCustom
paperSizeNewCustom ,
-- ** paperSizeNewFromIpp
paperSizeNewFromIpp ,
-- ** paperSizeNewFromKeyFile
paperSizeNewFromKeyFile ,
-- ** paperSizeNewFromPpd
paperSizeNewFromPpd ,
-- ** paperSizeSetSize
paperSizeSetSize ,
-- ** paperSizeToKeyFile
paperSizeToKeyFile ,
) 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
newtype PaperSize = PaperSize (ForeignPtr PaperSize)
foreign import ccall "gtk_paper_size_get_type" c_gtk_paper_size_get_type ::
IO GType
instance BoxedObject PaperSize where
boxedType _ = c_gtk_paper_size_get_type
noPaperSize :: Maybe PaperSize
noPaperSize = Nothing
-- method PaperSize::new
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new" gtk_paper_size_new ::
CString -> -- name : TBasicType TUTF8
IO (Ptr PaperSize)
paperSizeNew ::
(MonadIO m) =>
Maybe (T.Text) -> -- name
m PaperSize
paperSizeNew name = liftIO $ do
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
result <- gtk_paper_size_new maybeName
checkUnexpectedReturnNULL "gtk_paper_size_new" result
result' <- (wrapBoxed PaperSize) result
freeMem maybeName
return result'
-- method PaperSize::new_custom
-- method type : Constructor
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_new_custom" gtk_paper_size_new_custom ::
CString -> -- name : TBasicType TUTF8
CString -> -- display_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO (Ptr PaperSize)
paperSizeNewCustom ::
(MonadIO m) =>
T.Text -> -- name
T.Text -> -- display_name
Double -> -- width
Double -> -- height
Unit -> -- unit
m PaperSize
paperSizeNewCustom name display_name width height unit = liftIO $ do
name' <- textToCString name
display_name' <- textToCString display_name
let width' = realToFrac width
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_new_custom name' display_name' width' height' unit'
checkUnexpectedReturnNULL "gtk_paper_size_new_custom" result
result' <- (wrapBoxed PaperSize) result
freeMem name'
freeMem display_name'
return result'
-- method PaperSize::new_from_ipp
-- method type : Constructor
-- Args : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, 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_paper_size_new_from_ipp" gtk_paper_size_new_from_ipp ::
CString -> -- ipp_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO (Ptr PaperSize)
paperSizeNewFromIpp ::
(MonadIO m) =>
T.Text -> -- ipp_name
Double -> -- width
Double -> -- height
m PaperSize
paperSizeNewFromIpp ipp_name width height = liftIO $ do
ipp_name' <- textToCString ipp_name
let width' = realToFrac width
let height' = realToFrac height
result <- gtk_paper_size_new_from_ipp ipp_name' width' height'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_ipp" result
result' <- (wrapBoxed PaperSize) result
freeMem ipp_name'
return result'
-- method PaperSize::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 = False, 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 = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_paper_size_new_from_key_file" gtk_paper_size_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PaperSize)
paperSizeNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m PaperSize
paperSizeNewFromKeyFile key_file group_name = liftIO $ do
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
onException (do
result <- propagateGError $ gtk_paper_size_new_from_key_file key_file' group_name'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_key_file" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr key_file
freeMem group_name'
return result'
) (do
freeMem group_name'
)
-- method PaperSize::new_from_ppd
-- method type : Constructor
-- Args : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, 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_paper_size_new_from_ppd" gtk_paper_size_new_from_ppd ::
CString -> -- ppd_name : TBasicType TUTF8
CString -> -- ppd_display_name : TBasicType TUTF8
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO (Ptr PaperSize)
paperSizeNewFromPpd ::
(MonadIO m) =>
T.Text -> -- ppd_name
T.Text -> -- ppd_display_name
Double -> -- width
Double -> -- height
m PaperSize
paperSizeNewFromPpd ppd_name ppd_display_name width height = liftIO $ do
ppd_name' <- textToCString ppd_name
ppd_display_name' <- textToCString ppd_display_name
let width' = realToFrac width
let height' = realToFrac height
result <- gtk_paper_size_new_from_ppd ppd_name' ppd_display_name' width' height'
checkUnexpectedReturnNULL "gtk_paper_size_new_from_ppd" result
result' <- (wrapBoxed PaperSize) result
freeMem ppd_name'
freeMem ppd_display_name'
return result'
-- method PaperSize::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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_paper_size_copy" gtk_paper_size_copy ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO (Ptr PaperSize)
paperSizeCopy ::
(MonadIO m) =>
PaperSize -> -- _obj
m PaperSize
paperSizeCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_copy _obj'
checkUnexpectedReturnNULL "gtk_paper_size_copy" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr _obj
return result'
-- method PaperSize::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", 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_paper_size_free" gtk_paper_size_free ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO ()
paperSizeFree ::
(MonadIO m) =>
PaperSize -> -- _obj
m ()
paperSizeFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_paper_size_free _obj'
touchManagedPtr _obj
return ()
-- method PaperSize::get_default_bottom_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_default_bottom_margin" gtk_paper_size_get_default_bottom_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultBottomMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultBottomMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_bottom_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_left_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_default_left_margin" gtk_paper_size_get_default_left_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultLeftMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultLeftMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_left_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_right_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_default_right_margin" gtk_paper_size_get_default_right_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultRightMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultRightMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_right_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_default_top_margin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_default_top_margin" gtk_paper_size_get_default_top_margin ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetDefaultTopMargin ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetDefaultTopMargin _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_default_top_margin _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_display_name" gtk_paper_size_get_display_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetDisplayName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_display_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_display_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_height" gtk_paper_size_get_height ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetHeight ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_name" gtk_paper_size_get_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_ppd_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_ppd_name" gtk_paper_size_get_ppd_name ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CString
paperSizeGetPpdName ::
(MonadIO m) =>
PaperSize -> -- _obj
m T.Text
paperSizeGetPpdName _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_get_ppd_name _obj'
checkUnexpectedReturnNULL "gtk_paper_size_get_ppd_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method PaperSize::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_get_width" gtk_paper_size_get_width ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
paperSizeGetWidth ::
(MonadIO m) =>
PaperSize -> -- _obj
Unit -> -- unit
m Double
paperSizeGetWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_paper_size_get_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method PaperSize::is_custom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_custom" gtk_paper_size_is_custom ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsCustom ::
(MonadIO m) =>
PaperSize -> -- _obj
m Bool
paperSizeIsCustom _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_is_custom _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PaperSize::is_equal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_equal" gtk_paper_size_is_equal ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
Ptr PaperSize -> -- size2 : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsEqual ::
(MonadIO m) =>
PaperSize -> -- _obj
PaperSize -> -- size2
m Bool
paperSizeIsEqual _obj size2 = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let size2' = unsafeManagedPtrGetPtr size2
result <- gtk_paper_size_is_equal _obj' size2'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr size2
return result'
-- method PaperSize::is_ipp
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_is_ipp" gtk_paper_size_is_ipp ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
IO CInt
paperSizeIsIpp ::
(MonadIO m) =>
PaperSize -> -- _obj
m Bool
paperSizeIsIpp _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_paper_size_is_ipp _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method PaperSize::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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_paper_size_set_size" gtk_paper_size_set_size ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
paperSizeSetSize ::
(MonadIO m) =>
PaperSize -> -- _obj
Double -> -- width
Double -> -- height
Unit -> -- unit
m ()
paperSizeSetSize _obj width height unit = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let width' = realToFrac width
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
gtk_paper_size_set_size _obj' width' height' unit'
touchManagedPtr _obj
return ()
-- method PaperSize::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", 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" "PaperSize", 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_paper_size_to_key_file" gtk_paper_size_to_key_file ::
Ptr PaperSize -> -- _obj : TInterface "Gtk" "PaperSize"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
paperSizeToKeyFile ::
(MonadIO m) =>
PaperSize -> -- _obj
GLib.KeyFile -> -- key_file
T.Text -> -- group_name
m ()
paperSizeToKeyFile _obj key_file group_name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let key_file' = unsafeManagedPtrGetPtr key_file
group_name' <- textToCString group_name
gtk_paper_size_to_key_file _obj' key_file' group_name'
touchManagedPtr _obj
touchManagedPtr key_file
freeMem group_name'
return ()