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