{- | 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 ()