gi-gtk-0.3.18.13: GI/Gtk/Objects/PrintSettings.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.PrintSettings
(
-- * Exported types
PrintSettings(..) ,
PrintSettingsK ,
toPrintSettings ,
noPrintSettings ,
-- * Methods
-- ** printSettingsCopy
PrintSettingsCopyMethodInfo ,
printSettingsCopy ,
-- ** printSettingsForeach
PrintSettingsForeachMethodInfo ,
printSettingsForeach ,
-- ** printSettingsGet
PrintSettingsGetMethodInfo ,
printSettingsGet ,
-- ** printSettingsGetBool
PrintSettingsGetBoolMethodInfo ,
printSettingsGetBool ,
-- ** printSettingsGetCollate
PrintSettingsGetCollateMethodInfo ,
printSettingsGetCollate ,
-- ** printSettingsGetDefaultSource
PrintSettingsGetDefaultSourceMethodInfo ,
printSettingsGetDefaultSource ,
-- ** printSettingsGetDither
PrintSettingsGetDitherMethodInfo ,
printSettingsGetDither ,
-- ** printSettingsGetDouble
PrintSettingsGetDoubleMethodInfo ,
printSettingsGetDouble ,
-- ** printSettingsGetDoubleWithDefault
PrintSettingsGetDoubleWithDefaultMethodInfo,
printSettingsGetDoubleWithDefault ,
-- ** printSettingsGetDuplex
PrintSettingsGetDuplexMethodInfo ,
printSettingsGetDuplex ,
-- ** printSettingsGetFinishings
PrintSettingsGetFinishingsMethodInfo ,
printSettingsGetFinishings ,
-- ** printSettingsGetInt
PrintSettingsGetIntMethodInfo ,
printSettingsGetInt ,
-- ** printSettingsGetIntWithDefault
PrintSettingsGetIntWithDefaultMethodInfo,
printSettingsGetIntWithDefault ,
-- ** printSettingsGetLength
PrintSettingsGetLengthMethodInfo ,
printSettingsGetLength ,
-- ** printSettingsGetMediaType
PrintSettingsGetMediaTypeMethodInfo ,
printSettingsGetMediaType ,
-- ** printSettingsGetNCopies
PrintSettingsGetNCopiesMethodInfo ,
printSettingsGetNCopies ,
-- ** printSettingsGetNumberUp
PrintSettingsGetNumberUpMethodInfo ,
printSettingsGetNumberUp ,
-- ** printSettingsGetNumberUpLayout
PrintSettingsGetNumberUpLayoutMethodInfo,
printSettingsGetNumberUpLayout ,
-- ** printSettingsGetOrientation
PrintSettingsGetOrientationMethodInfo ,
printSettingsGetOrientation ,
-- ** printSettingsGetOutputBin
PrintSettingsGetOutputBinMethodInfo ,
printSettingsGetOutputBin ,
-- ** printSettingsGetPageRanges
PrintSettingsGetPageRangesMethodInfo ,
printSettingsGetPageRanges ,
-- ** printSettingsGetPageSet
PrintSettingsGetPageSetMethodInfo ,
printSettingsGetPageSet ,
-- ** printSettingsGetPaperHeight
PrintSettingsGetPaperHeightMethodInfo ,
printSettingsGetPaperHeight ,
-- ** printSettingsGetPaperSize
PrintSettingsGetPaperSizeMethodInfo ,
printSettingsGetPaperSize ,
-- ** printSettingsGetPaperWidth
PrintSettingsGetPaperWidthMethodInfo ,
printSettingsGetPaperWidth ,
-- ** printSettingsGetPrintPages
PrintSettingsGetPrintPagesMethodInfo ,
printSettingsGetPrintPages ,
-- ** printSettingsGetPrinter
PrintSettingsGetPrinterMethodInfo ,
printSettingsGetPrinter ,
-- ** printSettingsGetPrinterLpi
PrintSettingsGetPrinterLpiMethodInfo ,
printSettingsGetPrinterLpi ,
-- ** printSettingsGetQuality
PrintSettingsGetQualityMethodInfo ,
printSettingsGetQuality ,
-- ** printSettingsGetResolution
PrintSettingsGetResolutionMethodInfo ,
printSettingsGetResolution ,
-- ** printSettingsGetResolutionX
PrintSettingsGetResolutionXMethodInfo ,
printSettingsGetResolutionX ,
-- ** printSettingsGetResolutionY
PrintSettingsGetResolutionYMethodInfo ,
printSettingsGetResolutionY ,
-- ** printSettingsGetReverse
PrintSettingsGetReverseMethodInfo ,
printSettingsGetReverse ,
-- ** printSettingsGetScale
PrintSettingsGetScaleMethodInfo ,
printSettingsGetScale ,
-- ** printSettingsGetUseColor
PrintSettingsGetUseColorMethodInfo ,
printSettingsGetUseColor ,
-- ** printSettingsHasKey
PrintSettingsHasKeyMethodInfo ,
printSettingsHasKey ,
-- ** printSettingsLoadFile
PrintSettingsLoadFileMethodInfo ,
printSettingsLoadFile ,
-- ** printSettingsLoadKeyFile
PrintSettingsLoadKeyFileMethodInfo ,
printSettingsLoadKeyFile ,
-- ** printSettingsNew
printSettingsNew ,
-- ** printSettingsNewFromFile
printSettingsNewFromFile ,
-- ** printSettingsNewFromKeyFile
printSettingsNewFromKeyFile ,
-- ** printSettingsSet
PrintSettingsSetMethodInfo ,
printSettingsSet ,
-- ** printSettingsSetBool
PrintSettingsSetBoolMethodInfo ,
printSettingsSetBool ,
-- ** printSettingsSetCollate
PrintSettingsSetCollateMethodInfo ,
printSettingsSetCollate ,
-- ** printSettingsSetDefaultSource
PrintSettingsSetDefaultSourceMethodInfo ,
printSettingsSetDefaultSource ,
-- ** printSettingsSetDither
PrintSettingsSetDitherMethodInfo ,
printSettingsSetDither ,
-- ** printSettingsSetDouble
PrintSettingsSetDoubleMethodInfo ,
printSettingsSetDouble ,
-- ** printSettingsSetDuplex
PrintSettingsSetDuplexMethodInfo ,
printSettingsSetDuplex ,
-- ** printSettingsSetFinishings
PrintSettingsSetFinishingsMethodInfo ,
printSettingsSetFinishings ,
-- ** printSettingsSetInt
PrintSettingsSetIntMethodInfo ,
printSettingsSetInt ,
-- ** printSettingsSetLength
PrintSettingsSetLengthMethodInfo ,
printSettingsSetLength ,
-- ** printSettingsSetMediaType
PrintSettingsSetMediaTypeMethodInfo ,
printSettingsSetMediaType ,
-- ** printSettingsSetNCopies
PrintSettingsSetNCopiesMethodInfo ,
printSettingsSetNCopies ,
-- ** printSettingsSetNumberUp
PrintSettingsSetNumberUpMethodInfo ,
printSettingsSetNumberUp ,
-- ** printSettingsSetNumberUpLayout
PrintSettingsSetNumberUpLayoutMethodInfo,
printSettingsSetNumberUpLayout ,
-- ** printSettingsSetOrientation
PrintSettingsSetOrientationMethodInfo ,
printSettingsSetOrientation ,
-- ** printSettingsSetOutputBin
PrintSettingsSetOutputBinMethodInfo ,
printSettingsSetOutputBin ,
-- ** printSettingsSetPageRanges
PrintSettingsSetPageRangesMethodInfo ,
printSettingsSetPageRanges ,
-- ** printSettingsSetPageSet
PrintSettingsSetPageSetMethodInfo ,
printSettingsSetPageSet ,
-- ** printSettingsSetPaperHeight
PrintSettingsSetPaperHeightMethodInfo ,
printSettingsSetPaperHeight ,
-- ** printSettingsSetPaperSize
PrintSettingsSetPaperSizeMethodInfo ,
printSettingsSetPaperSize ,
-- ** printSettingsSetPaperWidth
PrintSettingsSetPaperWidthMethodInfo ,
printSettingsSetPaperWidth ,
-- ** printSettingsSetPrintPages
PrintSettingsSetPrintPagesMethodInfo ,
printSettingsSetPrintPages ,
-- ** printSettingsSetPrinter
PrintSettingsSetPrinterMethodInfo ,
printSettingsSetPrinter ,
-- ** printSettingsSetPrinterLpi
PrintSettingsSetPrinterLpiMethodInfo ,
printSettingsSetPrinterLpi ,
-- ** printSettingsSetQuality
PrintSettingsSetQualityMethodInfo ,
printSettingsSetQuality ,
-- ** printSettingsSetResolution
PrintSettingsSetResolutionMethodInfo ,
printSettingsSetResolution ,
-- ** printSettingsSetResolutionXy
PrintSettingsSetResolutionXyMethodInfo ,
printSettingsSetResolutionXy ,
-- ** printSettingsSetReverse
PrintSettingsSetReverseMethodInfo ,
printSettingsSetReverse ,
-- ** printSettingsSetScale
PrintSettingsSetScaleMethodInfo ,
printSettingsSetScale ,
-- ** printSettingsSetUseColor
PrintSettingsSetUseColorMethodInfo ,
printSettingsSetUseColor ,
-- ** printSettingsToFile
PrintSettingsToFileMethodInfo ,
printSettingsToFile ,
-- ** printSettingsToKeyFile
PrintSettingsToKeyFileMethodInfo ,
printSettingsToKeyFile ,
-- ** printSettingsUnset
PrintSettingsUnsetMethodInfo ,
printSettingsUnset ,
) 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 PrintSettings = PrintSettings (ForeignPtr PrintSettings)
foreign import ccall "gtk_print_settings_get_type"
c_gtk_print_settings_get_type :: IO GType
type instance ParentTypes PrintSettings = PrintSettingsParentTypes
type PrintSettingsParentTypes = '[GObject.Object]
instance GObject PrintSettings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_print_settings_get_type
class GObject o => PrintSettingsK o
instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o
toPrintSettings :: PrintSettingsK o => o -> IO PrintSettings
toPrintSettings = unsafeCastTo PrintSettings
noPrintSettings :: Maybe PrintSettings
noPrintSettings = Nothing
type family ResolvePrintSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolvePrintSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolvePrintSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolvePrintSettingsMethod "copy" o = PrintSettingsCopyMethodInfo
ResolvePrintSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolvePrintSettingsMethod "foreach" o = PrintSettingsForeachMethodInfo
ResolvePrintSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolvePrintSettingsMethod "get" o = PrintSettingsGetMethodInfo
ResolvePrintSettingsMethod "hasKey" o = PrintSettingsHasKeyMethodInfo
ResolvePrintSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolvePrintSettingsMethod "loadFile" o = PrintSettingsLoadFileMethodInfo
ResolvePrintSettingsMethod "loadKeyFile" o = PrintSettingsLoadKeyFileMethodInfo
ResolvePrintSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolvePrintSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolvePrintSettingsMethod "ref" o = GObject.ObjectRefMethodInfo
ResolvePrintSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolvePrintSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolvePrintSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolvePrintSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolvePrintSettingsMethod "set" o = PrintSettingsSetMethodInfo
ResolvePrintSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolvePrintSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolvePrintSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolvePrintSettingsMethod "toFile" o = PrintSettingsToFileMethodInfo
ResolvePrintSettingsMethod "toKeyFile" o = PrintSettingsToKeyFileMethodInfo
ResolvePrintSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolvePrintSettingsMethod "unset" o = PrintSettingsUnsetMethodInfo
ResolvePrintSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolvePrintSettingsMethod "getBool" o = PrintSettingsGetBoolMethodInfo
ResolvePrintSettingsMethod "getCollate" o = PrintSettingsGetCollateMethodInfo
ResolvePrintSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolvePrintSettingsMethod "getDefaultSource" o = PrintSettingsGetDefaultSourceMethodInfo
ResolvePrintSettingsMethod "getDither" o = PrintSettingsGetDitherMethodInfo
ResolvePrintSettingsMethod "getDouble" o = PrintSettingsGetDoubleMethodInfo
ResolvePrintSettingsMethod "getDoubleWithDefault" o = PrintSettingsGetDoubleWithDefaultMethodInfo
ResolvePrintSettingsMethod "getDuplex" o = PrintSettingsGetDuplexMethodInfo
ResolvePrintSettingsMethod "getFinishings" o = PrintSettingsGetFinishingsMethodInfo
ResolvePrintSettingsMethod "getInt" o = PrintSettingsGetIntMethodInfo
ResolvePrintSettingsMethod "getIntWithDefault" o = PrintSettingsGetIntWithDefaultMethodInfo
ResolvePrintSettingsMethod "getLength" o = PrintSettingsGetLengthMethodInfo
ResolvePrintSettingsMethod "getMediaType" o = PrintSettingsGetMediaTypeMethodInfo
ResolvePrintSettingsMethod "getNCopies" o = PrintSettingsGetNCopiesMethodInfo
ResolvePrintSettingsMethod "getNumberUp" o = PrintSettingsGetNumberUpMethodInfo
ResolvePrintSettingsMethod "getNumberUpLayout" o = PrintSettingsGetNumberUpLayoutMethodInfo
ResolvePrintSettingsMethod "getOrientation" o = PrintSettingsGetOrientationMethodInfo
ResolvePrintSettingsMethod "getOutputBin" o = PrintSettingsGetOutputBinMethodInfo
ResolvePrintSettingsMethod "getPageRanges" o = PrintSettingsGetPageRangesMethodInfo
ResolvePrintSettingsMethod "getPageSet" o = PrintSettingsGetPageSetMethodInfo
ResolvePrintSettingsMethod "getPaperHeight" o = PrintSettingsGetPaperHeightMethodInfo
ResolvePrintSettingsMethod "getPaperSize" o = PrintSettingsGetPaperSizeMethodInfo
ResolvePrintSettingsMethod "getPaperWidth" o = PrintSettingsGetPaperWidthMethodInfo
ResolvePrintSettingsMethod "getPrintPages" o = PrintSettingsGetPrintPagesMethodInfo
ResolvePrintSettingsMethod "getPrinter" o = PrintSettingsGetPrinterMethodInfo
ResolvePrintSettingsMethod "getPrinterLpi" o = PrintSettingsGetPrinterLpiMethodInfo
ResolvePrintSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolvePrintSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolvePrintSettingsMethod "getQuality" o = PrintSettingsGetQualityMethodInfo
ResolvePrintSettingsMethod "getResolution" o = PrintSettingsGetResolutionMethodInfo
ResolvePrintSettingsMethod "getResolutionX" o = PrintSettingsGetResolutionXMethodInfo
ResolvePrintSettingsMethod "getResolutionY" o = PrintSettingsGetResolutionYMethodInfo
ResolvePrintSettingsMethod "getReverse" o = PrintSettingsGetReverseMethodInfo
ResolvePrintSettingsMethod "getScale" o = PrintSettingsGetScaleMethodInfo
ResolvePrintSettingsMethod "getUseColor" o = PrintSettingsGetUseColorMethodInfo
ResolvePrintSettingsMethod "setBool" o = PrintSettingsSetBoolMethodInfo
ResolvePrintSettingsMethod "setCollate" o = PrintSettingsSetCollateMethodInfo
ResolvePrintSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolvePrintSettingsMethod "setDefaultSource" o = PrintSettingsSetDefaultSourceMethodInfo
ResolvePrintSettingsMethod "setDither" o = PrintSettingsSetDitherMethodInfo
ResolvePrintSettingsMethod "setDouble" o = PrintSettingsSetDoubleMethodInfo
ResolvePrintSettingsMethod "setDuplex" o = PrintSettingsSetDuplexMethodInfo
ResolvePrintSettingsMethod "setFinishings" o = PrintSettingsSetFinishingsMethodInfo
ResolvePrintSettingsMethod "setInt" o = PrintSettingsSetIntMethodInfo
ResolvePrintSettingsMethod "setLength" o = PrintSettingsSetLengthMethodInfo
ResolvePrintSettingsMethod "setMediaType" o = PrintSettingsSetMediaTypeMethodInfo
ResolvePrintSettingsMethod "setNCopies" o = PrintSettingsSetNCopiesMethodInfo
ResolvePrintSettingsMethod "setNumberUp" o = PrintSettingsSetNumberUpMethodInfo
ResolvePrintSettingsMethod "setNumberUpLayout" o = PrintSettingsSetNumberUpLayoutMethodInfo
ResolvePrintSettingsMethod "setOrientation" o = PrintSettingsSetOrientationMethodInfo
ResolvePrintSettingsMethod "setOutputBin" o = PrintSettingsSetOutputBinMethodInfo
ResolvePrintSettingsMethod "setPageRanges" o = PrintSettingsSetPageRangesMethodInfo
ResolvePrintSettingsMethod "setPageSet" o = PrintSettingsSetPageSetMethodInfo
ResolvePrintSettingsMethod "setPaperHeight" o = PrintSettingsSetPaperHeightMethodInfo
ResolvePrintSettingsMethod "setPaperSize" o = PrintSettingsSetPaperSizeMethodInfo
ResolvePrintSettingsMethod "setPaperWidth" o = PrintSettingsSetPaperWidthMethodInfo
ResolvePrintSettingsMethod "setPrintPages" o = PrintSettingsSetPrintPagesMethodInfo
ResolvePrintSettingsMethod "setPrinter" o = PrintSettingsSetPrinterMethodInfo
ResolvePrintSettingsMethod "setPrinterLpi" o = PrintSettingsSetPrinterLpiMethodInfo
ResolvePrintSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolvePrintSettingsMethod "setQuality" o = PrintSettingsSetQualityMethodInfo
ResolvePrintSettingsMethod "setResolution" o = PrintSettingsSetResolutionMethodInfo
ResolvePrintSettingsMethod "setResolutionXy" o = PrintSettingsSetResolutionXyMethodInfo
ResolvePrintSettingsMethod "setReverse" o = PrintSettingsSetReverseMethodInfo
ResolvePrintSettingsMethod "setScale" o = PrintSettingsSetScaleMethodInfo
ResolvePrintSettingsMethod "setUseColor" o = PrintSettingsSetUseColorMethodInfo
ResolvePrintSettingsMethod l o = MethodResolutionFailed l o
instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabelProxy t (PrintSettings -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabel t (PrintSettings -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList PrintSettings = PrintSettingsAttributeList
type PrintSettingsAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList PrintSettings = PrintSettingsSignalList
type PrintSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method PrintSettings::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_new" gtk_print_settings_new ::
IO (Ptr PrintSettings)
printSettingsNew ::
(MonadIO m) =>
m PrintSettings -- result
printSettingsNew = liftIO $ do
result <- gtk_print_settings_new
checkUnexpectedReturnNULL "gtk_print_settings_new" result
result' <- (wrapObject PrintSettings) result
return result'
-- method PrintSettings::new_from_file
-- method type : Constructor
-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_new_from_file" gtk_print_settings_new_from_file ::
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO (Ptr PrintSettings)
printSettingsNewFromFile ::
(MonadIO m) =>
[Char] -- fileName
-> m PrintSettings -- result
printSettingsNewFromFile fileName = liftIO $ do
fileName' <- stringToCString fileName
onException (do
result <- propagateGError $ gtk_print_settings_new_from_file fileName'
checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result
result' <- (wrapObject PrintSettings) result
freeMem fileName'
return result'
) (do
freeMem fileName'
)
-- method PrintSettings::new_from_key_file
-- method type : Constructor
-- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_new_from_key_file" gtk_print_settings_new_from_key_file ::
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr PrintSettings)
printSettingsNewFromKeyFile ::
(MonadIO m) =>
GLib.KeyFile -- keyFile
-> Maybe (T.Text) -- groupName
-> m PrintSettings -- result
printSettingsNewFromKeyFile keyFile groupName = liftIO $ do
let keyFile' = unsafeManagedPtrGetPtr keyFile
maybeGroupName <- case groupName of
Nothing -> return nullPtr
Just jGroupName -> do
jGroupName' <- textToCString jGroupName
return jGroupName'
onException (do
result <- propagateGError $ gtk_print_settings_new_from_key_file keyFile' maybeGroupName
checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result
result' <- (wrapObject PrintSettings) result
touchManagedPtr keyFile
freeMem maybeGroupName
return result'
) (do
freeMem maybeGroupName
)
-- method PrintSettings::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintSettings"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_copy" gtk_print_settings_copy ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO (Ptr PrintSettings)
printSettingsCopy ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PrintSettings -- result
printSettingsCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_copy _obj'
checkUnexpectedReturnNULL "gtk_print_settings_copy" result
result' <- (wrapObject PrintSettings) result
touchManagedPtr _obj
return result'
data PrintSettingsCopyMethodInfo
instance (signature ~ (m PrintSettings), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsCopyMethodInfo a signature where
overloadedMethod _ = printSettingsCopy
-- method PrintSettings::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
printSettingsForeach ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PrintSettingsFunc -- func
-> m () -- result
printSettingsForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func)
let userData = nullPtr
gtk_print_settings_foreach _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data PrintSettingsForeachMethodInfo
instance (signature ~ (PrintSettingsFunc -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsForeachMethodInfo a signature where
overloadedMethod _ = printSettingsForeach
-- method PrintSettings::get
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get" gtk_print_settings_get ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CString
printSettingsGet ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m T.Text -- result
printSettingsGet _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get _obj' key'
checkUnexpectedReturnNULL "gtk_print_settings_get" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsGetMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMethodInfo a signature where
overloadedMethod _ = printSettingsGet
-- method PrintSettings::get_bool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_bool" gtk_print_settings_get_bool ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CInt
printSettingsGetBool ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m Bool -- result
printSettingsGetBool _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_bool _obj' key'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsGetBoolMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetBoolMethodInfo a signature where
overloadedMethod _ = printSettingsGetBool
-- method PrintSettings::get_collate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_collate" gtk_print_settings_get_collate ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetCollate ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Bool -- result
printSettingsGetCollate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_collate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data PrintSettingsGetCollateMethodInfo
instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetCollateMethodInfo a signature where
overloadedMethod _ = printSettingsGetCollate
-- method PrintSettings::get_default_source
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_default_source" gtk_print_settings_get_default_source ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetDefaultSource ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetDefaultSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_default_source _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_default_source" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetDefaultSourceMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDefaultSourceMethodInfo a signature where
overloadedMethod _ = printSettingsGetDefaultSource
-- method PrintSettings::get_dither
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_dither" gtk_print_settings_get_dither ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetDither ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetDither _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_dither _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_dither" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetDitherMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDitherMethodInfo a signature where
overloadedMethod _ = printSettingsGetDither
-- method PrintSettings::get_double
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_double" gtk_print_settings_get_double ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CDouble
printSettingsGetDouble ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m Double -- result
printSettingsGetDouble _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_double _obj' key'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsGetDoubleMethodInfo
instance (signature ~ (T.Text -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleMethodInfo a signature where
overloadedMethod _ = printSettingsGetDouble
-- method PrintSettings::get_double_with_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_double_with_default" gtk_print_settings_get_double_with_default ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- def : TBasicType TDouble
IO CDouble
printSettingsGetDoubleWithDefault ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Double -- def
-> m Double -- result
printSettingsGetDoubleWithDefault _obj key def = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let def' = realToFrac def
result <- gtk_print_settings_get_double_with_default _obj' key' def'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsGetDoubleWithDefaultMethodInfo
instance (signature ~ (T.Text -> Double -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleWithDefaultMethodInfo a signature where
overloadedMethod _ = printSettingsGetDoubleWithDefault
-- method PrintSettings::get_duplex
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintDuplex"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_duplex" gtk_print_settings_get_duplex ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetDuplex ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PrintDuplex -- result
printSettingsGetDuplex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_duplex _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetDuplexMethodInfo
instance (signature ~ (m PrintDuplex), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDuplexMethodInfo a signature where
overloadedMethod _ = printSettingsGetDuplex
-- method PrintSettings::get_finishings
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_finishings" gtk_print_settings_get_finishings ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetFinishings ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetFinishings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_finishings _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_finishings" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetFinishingsMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetFinishingsMethodInfo a signature where
overloadedMethod _ = printSettingsGetFinishings
-- method PrintSettings::get_int
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_int" gtk_print_settings_get_int ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO Int32
printSettingsGetInt ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m Int32 -- result
printSettingsGetInt _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_int _obj' key'
touchManagedPtr _obj
freeMem key'
return result
data PrintSettingsGetIntMethodInfo
instance (signature ~ (T.Text -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntMethodInfo a signature where
overloadedMethod _ = printSettingsGetInt
-- method PrintSettings::get_int_with_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- def : TBasicType TInt32
IO Int32
printSettingsGetIntWithDefault ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Int32 -- def
-> m Int32 -- result
printSettingsGetIntWithDefault _obj key def = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_get_int_with_default _obj' key' def
touchManagedPtr _obj
freeMem key'
return result
data PrintSettingsGetIntWithDefaultMethodInfo
instance (signature ~ (T.Text -> Int32 -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntWithDefaultMethodInfo a signature where
overloadedMethod _ = printSettingsGetIntWithDefault
-- method PrintSettings::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_length" gtk_print_settings_get_length ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetLength ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Unit -- unit
-> m Double -- result
printSettingsGetLength _obj key unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_length _obj' key' unit'
let result' = realToFrac result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsGetLengthMethodInfo
instance (signature ~ (T.Text -> Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetLengthMethodInfo a signature where
overloadedMethod _ = printSettingsGetLength
-- method PrintSettings::get_media_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_media_type" gtk_print_settings_get_media_type ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetMediaType ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetMediaType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_media_type _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_media_type" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetMediaTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMediaTypeMethodInfo a signature where
overloadedMethod _ = printSettingsGetMediaType
-- method PrintSettings::get_n_copies
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_n_copies" gtk_print_settings_get_n_copies ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetNCopies ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Int32 -- result
printSettingsGetNCopies _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_n_copies _obj'
touchManagedPtr _obj
return result
data PrintSettingsGetNCopiesMethodInfo
instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNCopiesMethodInfo a signature where
overloadedMethod _ = printSettingsGetNCopies
-- method PrintSettings::get_number_up
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_number_up" gtk_print_settings_get_number_up ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetNumberUp ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Int32 -- result
printSettingsGetNumberUp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_number_up _obj'
touchManagedPtr _obj
return result
data PrintSettingsGetNumberUpMethodInfo
instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpMethodInfo a signature where
overloadedMethod _ = printSettingsGetNumberUp
-- method PrintSettings::get_number_up_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "NumberUpLayout"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_number_up_layout" gtk_print_settings_get_number_up_layout ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetNumberUpLayout ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m NumberUpLayout -- result
printSettingsGetNumberUpLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_number_up_layout _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetNumberUpLayoutMethodInfo
instance (signature ~ (m NumberUpLayout), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpLayoutMethodInfo a signature where
overloadedMethod _ = printSettingsGetNumberUpLayout
-- method PrintSettings::get_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PageOrientation"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_orientation" gtk_print_settings_get_orientation ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetOrientation ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PageOrientation -- result
printSettingsGetOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetOrientationMethodInfo
instance (signature ~ (m PageOrientation), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOrientationMethodInfo a signature where
overloadedMethod _ = printSettingsGetOrientation
-- method PrintSettings::get_output_bin
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_output_bin" gtk_print_settings_get_output_bin ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetOutputBin ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetOutputBin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_output_bin _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_output_bin" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetOutputBinMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOutputBinMethodInfo a signature where
overloadedMethod _ = printSettingsGetOutputBin
-- method PrintSettings::get_page_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr Int32 -> -- num_ranges : TBasicType TInt32
IO (Ptr PageRange)
printSettingsGetPageRanges ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m [PageRange] -- result
printSettingsGetPageRanges _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
numRanges <- allocMem :: IO (Ptr Int32)
result <- gtk_print_settings_get_page_ranges _obj' numRanges
numRanges' <- peek numRanges
checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result
result' <- (unpackBlockArrayWithLength 8 numRanges') result
result'' <- mapM (wrapPtr PageRange) result'
freeMem result
touchManagedPtr _obj
freeMem numRanges
return result''
data PrintSettingsGetPageRangesMethodInfo
instance (signature ~ (m [PageRange]), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageRangesMethodInfo a signature where
overloadedMethod _ = printSettingsGetPageRanges
-- method PrintSettings::get_page_set
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PageSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_page_set" gtk_print_settings_get_page_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetPageSet ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PageSet -- result
printSettingsGetPageSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_page_set _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetPageSetMethodInfo
instance (signature ~ (m PageSet), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageSetMethodInfo a signature where
overloadedMethod _ = printSettingsGetPageSet
-- method PrintSettings::get_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_height" gtk_print_settings_get_paper_height ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetPaperHeight ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Unit -- unit
-> m Double -- result
printSettingsGetPaperHeight _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_paper_height _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data PrintSettingsGetPaperHeightMethodInfo
instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperHeightMethodInfo a signature where
overloadedMethod _ = printSettingsGetPaperHeight
-- method PrintSettings::get_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PaperSize"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_size" gtk_print_settings_get_paper_size ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO (Ptr PaperSize)
printSettingsGetPaperSize ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PaperSize -- result
printSettingsGetPaperSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_paper_size _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_paper_size" result
result' <- (wrapBoxed PaperSize) result
touchManagedPtr _obj
return result'
data PrintSettingsGetPaperSizeMethodInfo
instance (signature ~ (m PaperSize), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperSizeMethodInfo a signature where
overloadedMethod _ = printSettingsGetPaperSize
-- method PrintSettings::get_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_paper_width" gtk_print_settings_get_paper_width ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO CDouble
printSettingsGetPaperWidth ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Unit -- unit
-> m Double -- result
printSettingsGetPaperWidth _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let unit' = (fromIntegral . fromEnum) unit
result <- gtk_print_settings_get_paper_width _obj' unit'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data PrintSettingsGetPaperWidthMethodInfo
instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperWidthMethodInfo a signature where
overloadedMethod _ = printSettingsGetPaperWidth
-- method PrintSettings::get_print_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintPages"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_print_pages" gtk_print_settings_get_print_pages ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetPrintPages ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PrintPages -- result
printSettingsGetPrintPages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_print_pages _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetPrintPagesMethodInfo
instance (signature ~ (m PrintPages), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrintPagesMethodInfo a signature where
overloadedMethod _ = printSettingsGetPrintPages
-- method PrintSettings::get_printer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_printer" gtk_print_settings_get_printer ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CString
printSettingsGetPrinter ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m T.Text -- result
printSettingsGetPrinter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_printer _obj'
checkUnexpectedReturnNULL "gtk_print_settings_get_printer" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data PrintSettingsGetPrinterMethodInfo
instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterMethodInfo a signature where
overloadedMethod _ = printSettingsGetPrinter
-- method PrintSettings::get_printer_lpi
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_printer_lpi" gtk_print_settings_get_printer_lpi ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CDouble
printSettingsGetPrinterLpi ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Double -- result
printSettingsGetPrinterLpi _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_printer_lpi _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data PrintSettingsGetPrinterLpiMethodInfo
instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterLpiMethodInfo a signature where
overloadedMethod _ = printSettingsGetPrinterLpi
-- method PrintSettings::get_quality
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "PrintQuality"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_quality" gtk_print_settings_get_quality ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CUInt
printSettingsGetQuality ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m PrintQuality -- result
printSettingsGetQuality _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_quality _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data PrintSettingsGetQualityMethodInfo
instance (signature ~ (m PrintQuality), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetQualityMethodInfo a signature where
overloadedMethod _ = printSettingsGetQuality
-- method PrintSettings::get_resolution
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution" gtk_print_settings_get_resolution ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolution ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Int32 -- result
printSettingsGetResolution _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution _obj'
touchManagedPtr _obj
return result
data PrintSettingsGetResolutionMethodInfo
instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionMethodInfo a signature where
overloadedMethod _ = printSettingsGetResolution
-- method PrintSettings::get_resolution_x
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution_x" gtk_print_settings_get_resolution_x ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolutionX ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Int32 -- result
printSettingsGetResolutionX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution_x _obj'
touchManagedPtr _obj
return result
data PrintSettingsGetResolutionXMethodInfo
instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionXMethodInfo a signature where
overloadedMethod _ = printSettingsGetResolutionX
-- method PrintSettings::get_resolution_y
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_resolution_y" gtk_print_settings_get_resolution_y ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO Int32
printSettingsGetResolutionY ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Int32 -- result
printSettingsGetResolutionY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_resolution_y _obj'
touchManagedPtr _obj
return result
data PrintSettingsGetResolutionYMethodInfo
instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionYMethodInfo a signature where
overloadedMethod _ = printSettingsGetResolutionY
-- method PrintSettings::get_reverse
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_reverse" gtk_print_settings_get_reverse ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetReverse ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Bool -- result
printSettingsGetReverse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_reverse _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data PrintSettingsGetReverseMethodInfo
instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetReverseMethodInfo a signature where
overloadedMethod _ = printSettingsGetReverse
-- method PrintSettings::get_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_scale" gtk_print_settings_get_scale ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CDouble
printSettingsGetScale ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Double -- result
printSettingsGetScale _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_scale _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data PrintSettingsGetScaleMethodInfo
instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetScaleMethodInfo a signature where
overloadedMethod _ = printSettingsGetScale
-- method PrintSettings::get_use_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_get_use_color" gtk_print_settings_get_use_color ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
IO CInt
printSettingsGetUseColor ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> m Bool -- result
printSettingsGetUseColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_print_settings_get_use_color _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data PrintSettingsGetUseColorMethodInfo
instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetUseColorMethodInfo a signature where
overloadedMethod _ = printSettingsGetUseColor
-- method PrintSettings::has_key
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_has_key" gtk_print_settings_has_key ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO CInt
printSettingsHasKey ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m Bool -- result
printSettingsHasKey _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gtk_print_settings_has_key _obj' key'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem key'
return result'
data PrintSettingsHasKeyMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsHasKeyMethodInfo a signature where
overloadedMethod _ = printSettingsHasKey
-- method PrintSettings::load_file
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_load_file" gtk_print_settings_load_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsLoadFile ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> [Char] -- fileName
-> m () -- result
printSettingsLoadFile _obj fileName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fileName' <- stringToCString fileName
onException (do
_ <- propagateGError $ gtk_print_settings_load_file _obj' fileName'
touchManagedPtr _obj
freeMem fileName'
return ()
) (do
freeMem fileName'
)
data PrintSettingsLoadFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadFileMethodInfo a signature where
overloadedMethod _ = printSettingsLoadFile
-- method PrintSettings::load_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_load_key_file" gtk_print_settings_load_key_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsLoadKeyFile ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> GLib.KeyFile -- keyFile
-> Maybe (T.Text) -- groupName
-> m () -- result
printSettingsLoadKeyFile _obj keyFile groupName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let keyFile' = unsafeManagedPtrGetPtr keyFile
maybeGroupName <- case groupName of
Nothing -> return nullPtr
Just jGroupName -> do
jGroupName' <- textToCString jGroupName
return jGroupName'
onException (do
_ <- propagateGError $ gtk_print_settings_load_key_file _obj' keyFile' maybeGroupName
touchManagedPtr _obj
touchManagedPtr keyFile
freeMem maybeGroupName
return ()
) (do
freeMem maybeGroupName
)
data PrintSettingsLoadKeyFileMethodInfo
instance (signature ~ (GLib.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadKeyFileMethodInfo a signature where
overloadedMethod _ = printSettingsLoadKeyFile
-- method PrintSettings::set
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set" gtk_print_settings_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO ()
printSettingsSet ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Maybe (T.Text) -- value
-> m () -- result
printSettingsSet _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
maybeValue <- case value of
Nothing -> return nullPtr
Just jValue -> do
jValue' <- textToCString jValue
return jValue'
gtk_print_settings_set _obj' key' maybeValue
touchManagedPtr _obj
freeMem key'
freeMem maybeValue
return ()
data PrintSettingsSetMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMethodInfo a signature where
overloadedMethod _ = printSettingsSet
-- method PrintSettings::set_bool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_bool" gtk_print_settings_set_bool ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CInt -> -- value : TBasicType TBoolean
IO ()
printSettingsSetBool ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Bool -- value
-> m () -- result
printSettingsSetBool _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = (fromIntegral . fromEnum) value
gtk_print_settings_set_bool _obj' key' value'
touchManagedPtr _obj
freeMem key'
return ()
data PrintSettingsSetBoolMethodInfo
instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetBoolMethodInfo a signature where
overloadedMethod _ = printSettingsSetBool
-- method PrintSettings::set_collate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_collate" gtk_print_settings_set_collate ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- collate : TBasicType TBoolean
IO ()
printSettingsSetCollate ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Bool -- collate
-> m () -- result
printSettingsSetCollate _obj collate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let collate' = (fromIntegral . fromEnum) collate
gtk_print_settings_set_collate _obj' collate'
touchManagedPtr _obj
return ()
data PrintSettingsSetCollateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetCollateMethodInfo a signature where
overloadedMethod _ = printSettingsSetCollate
-- method PrintSettings::set_default_source
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_default_source" gtk_print_settings_set_default_source ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- default_source : TBasicType TUTF8
IO ()
printSettingsSetDefaultSource ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- defaultSource
-> m () -- result
printSettingsSetDefaultSource _obj defaultSource = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
defaultSource' <- textToCString defaultSource
gtk_print_settings_set_default_source _obj' defaultSource'
touchManagedPtr _obj
freeMem defaultSource'
return ()
data PrintSettingsSetDefaultSourceMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDefaultSourceMethodInfo a signature where
overloadedMethod _ = printSettingsSetDefaultSource
-- method PrintSettings::set_dither
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_dither" gtk_print_settings_set_dither ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- dither : TBasicType TUTF8
IO ()
printSettingsSetDither ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- dither
-> m () -- result
printSettingsSetDither _obj dither = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
dither' <- textToCString dither
gtk_print_settings_set_dither _obj' dither'
touchManagedPtr _obj
freeMem dither'
return ()
data PrintSettingsSetDitherMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDitherMethodInfo a signature where
overloadedMethod _ = printSettingsSetDither
-- method PrintSettings::set_double
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_double" gtk_print_settings_set_double ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
IO ()
printSettingsSetDouble ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Double -- value
-> m () -- result
printSettingsSetDouble _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = realToFrac value
gtk_print_settings_set_double _obj' key' value'
touchManagedPtr _obj
freeMem key'
return ()
data PrintSettingsSetDoubleMethodInfo
instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDoubleMethodInfo a signature where
overloadedMethod _ = printSettingsSetDouble
-- method PrintSettings::set_duplex
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_duplex" gtk_print_settings_set_duplex ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- duplex : TInterface "Gtk" "PrintDuplex"
IO ()
printSettingsSetDuplex ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PrintDuplex -- duplex
-> m () -- result
printSettingsSetDuplex _obj duplex = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let duplex' = (fromIntegral . fromEnum) duplex
gtk_print_settings_set_duplex _obj' duplex'
touchManagedPtr _obj
return ()
data PrintSettingsSetDuplexMethodInfo
instance (signature ~ (PrintDuplex -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDuplexMethodInfo a signature where
overloadedMethod _ = printSettingsSetDuplex
-- method PrintSettings::set_finishings
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_finishings" gtk_print_settings_set_finishings ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- finishings : TBasicType TUTF8
IO ()
printSettingsSetFinishings ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- finishings
-> m () -- result
printSettingsSetFinishings _obj finishings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
finishings' <- textToCString finishings
gtk_print_settings_set_finishings _obj' finishings'
touchManagedPtr _obj
freeMem finishings'
return ()
data PrintSettingsSetFinishingsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetFinishingsMethodInfo a signature where
overloadedMethod _ = printSettingsSetFinishings
-- method PrintSettings::set_int
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO ()
printSettingsSetInt ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Int32 -- value
-> m () -- result
printSettingsSetInt _obj key value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
gtk_print_settings_set_int _obj' key' value
touchManagedPtr _obj
freeMem key'
return ()
data PrintSettingsSetIntMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetIntMethodInfo a signature where
overloadedMethod _ = printSettingsSetInt
-- method PrintSettings::set_length
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_length" gtk_print_settings_set_length ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
CDouble -> -- value : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetLength ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> Double -- value
-> Unit -- unit
-> m () -- result
printSettingsSetLength _obj key value unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
let value' = realToFrac value
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_length _obj' key' value' unit'
touchManagedPtr _obj
freeMem key'
return ()
data PrintSettingsSetLengthMethodInfo
instance (signature ~ (T.Text -> Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetLengthMethodInfo a signature where
overloadedMethod _ = printSettingsSetLength
-- method PrintSettings::set_media_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_media_type" gtk_print_settings_set_media_type ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- media_type : TBasicType TUTF8
IO ()
printSettingsSetMediaType ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- mediaType
-> m () -- result
printSettingsSetMediaType _obj mediaType = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mediaType' <- textToCString mediaType
gtk_print_settings_set_media_type _obj' mediaType'
touchManagedPtr _obj
freeMem mediaType'
return ()
data PrintSettingsSetMediaTypeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMediaTypeMethodInfo a signature where
overloadedMethod _ = printSettingsSetMediaType
-- method PrintSettings::set_n_copies
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- num_copies : TBasicType TInt32
IO ()
printSettingsSetNCopies ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Int32 -- numCopies
-> m () -- result
printSettingsSetNCopies _obj numCopies = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_n_copies _obj' numCopies
touchManagedPtr _obj
return ()
data PrintSettingsSetNCopiesMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNCopiesMethodInfo a signature where
overloadedMethod _ = printSettingsSetNCopies
-- method PrintSettings::set_number_up
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- number_up : TBasicType TInt32
IO ()
printSettingsSetNumberUp ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Int32 -- numberUp
-> m () -- result
printSettingsSetNumberUp _obj numberUp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_number_up _obj' numberUp
touchManagedPtr _obj
return ()
data PrintSettingsSetNumberUpMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpMethodInfo a signature where
overloadedMethod _ = printSettingsSetNumberUp
-- method PrintSettings::set_number_up_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_number_up_layout" gtk_print_settings_set_number_up_layout ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- number_up_layout : TInterface "Gtk" "NumberUpLayout"
IO ()
printSettingsSetNumberUpLayout ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> NumberUpLayout -- numberUpLayout
-> m () -- result
printSettingsSetNumberUpLayout _obj numberUpLayout = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let numberUpLayout' = (fromIntegral . fromEnum) numberUpLayout
gtk_print_settings_set_number_up_layout _obj' numberUpLayout'
touchManagedPtr _obj
return ()
data PrintSettingsSetNumberUpLayoutMethodInfo
instance (signature ~ (NumberUpLayout -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpLayoutMethodInfo a signature where
overloadedMethod _ = printSettingsSetNumberUpLayout
-- method PrintSettings::set_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_orientation" gtk_print_settings_set_orientation ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- orientation : TInterface "Gtk" "PageOrientation"
IO ()
printSettingsSetOrientation ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PageOrientation -- orientation
-> m () -- result
printSettingsSetOrientation _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
gtk_print_settings_set_orientation _obj' orientation'
touchManagedPtr _obj
return ()
data PrintSettingsSetOrientationMethodInfo
instance (signature ~ (PageOrientation -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOrientationMethodInfo a signature where
overloadedMethod _ = printSettingsSetOrientation
-- method PrintSettings::set_output_bin
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_output_bin" gtk_print_settings_set_output_bin ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- output_bin : TBasicType TUTF8
IO ()
printSettingsSetOutputBin ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- outputBin
-> m () -- result
printSettingsSetOutputBin _obj outputBin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
outputBin' <- textToCString outputBin
gtk_print_settings_set_output_bin _obj' outputBin'
touchManagedPtr _obj
freeMem outputBin'
return ()
data PrintSettingsSetOutputBinMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOutputBinMethodInfo a signature where
overloadedMethod _ = printSettingsSetOutputBin
-- method PrintSettings::set_page_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange")
Int32 -> -- num_ranges : TBasicType TInt32
IO ()
printSettingsSetPageRanges ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> [PageRange] -- pageRanges
-> m () -- result
printSettingsSetPageRanges _obj pageRanges = liftIO $ do
let numRanges = fromIntegral $ length pageRanges
let _obj' = unsafeManagedPtrCastPtr _obj
let pageRanges' = map unsafeManagedPtrGetPtr pageRanges
pageRanges'' <- packBlockArray 8 pageRanges'
gtk_print_settings_set_page_ranges _obj' pageRanges'' numRanges
touchManagedPtr _obj
mapM_ touchManagedPtr pageRanges
freeMem pageRanges''
return ()
data PrintSettingsSetPageRangesMethodInfo
instance (signature ~ ([PageRange] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageRangesMethodInfo a signature where
overloadedMethod _ = printSettingsSetPageRanges
-- method PrintSettings::set_page_set
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_page_set" gtk_print_settings_set_page_set ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- page_set : TInterface "Gtk" "PageSet"
IO ()
printSettingsSetPageSet ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PageSet -- pageSet
-> m () -- result
printSettingsSetPageSet _obj pageSet = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pageSet' = (fromIntegral . fromEnum) pageSet
gtk_print_settings_set_page_set _obj' pageSet'
touchManagedPtr _obj
return ()
data PrintSettingsSetPageSetMethodInfo
instance (signature ~ (PageSet -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageSetMethodInfo a signature where
overloadedMethod _ = printSettingsSetPageSet
-- method PrintSettings::set_paper_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_height" gtk_print_settings_set_paper_height ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- height : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetPaperHeight ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Double -- height
-> Unit -- unit
-> m () -- result
printSettingsSetPaperHeight _obj height unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let height' = realToFrac height
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_paper_height _obj' height' unit'
touchManagedPtr _obj
return ()
data PrintSettingsSetPaperHeightMethodInfo
instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperHeightMethodInfo a signature where
overloadedMethod _ = printSettingsSetPaperHeight
-- method PrintSettings::set_paper_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_size" gtk_print_settings_set_paper_size ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr PaperSize -> -- paper_size : TInterface "Gtk" "PaperSize"
IO ()
printSettingsSetPaperSize ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PaperSize -- paperSize
-> m () -- result
printSettingsSetPaperSize _obj paperSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let paperSize' = unsafeManagedPtrGetPtr paperSize
gtk_print_settings_set_paper_size _obj' paperSize'
touchManagedPtr _obj
touchManagedPtr paperSize
return ()
data PrintSettingsSetPaperSizeMethodInfo
instance (signature ~ (PaperSize -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperSizeMethodInfo a signature where
overloadedMethod _ = printSettingsSetPaperSize
-- method PrintSettings::set_paper_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_paper_width" gtk_print_settings_set_paper_width ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- width : TBasicType TDouble
CUInt -> -- unit : TInterface "Gtk" "Unit"
IO ()
printSettingsSetPaperWidth ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Double -- width
-> Unit -- unit
-> m () -- result
printSettingsSetPaperWidth _obj width unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let width' = realToFrac width
let unit' = (fromIntegral . fromEnum) unit
gtk_print_settings_set_paper_width _obj' width' unit'
touchManagedPtr _obj
return ()
data PrintSettingsSetPaperWidthMethodInfo
instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperWidthMethodInfo a signature where
overloadedMethod _ = printSettingsSetPaperWidth
-- method PrintSettings::set_print_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_print_pages" gtk_print_settings_set_print_pages ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- pages : TInterface "Gtk" "PrintPages"
IO ()
printSettingsSetPrintPages ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PrintPages -- pages
-> m () -- result
printSettingsSetPrintPages _obj pages = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pages' = (fromIntegral . fromEnum) pages
gtk_print_settings_set_print_pages _obj' pages'
touchManagedPtr _obj
return ()
data PrintSettingsSetPrintPagesMethodInfo
instance (signature ~ (PrintPages -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrintPagesMethodInfo a signature where
overloadedMethod _ = printSettingsSetPrintPages
-- method PrintSettings::set_printer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_printer" gtk_print_settings_set_printer ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- printer : TBasicType TUTF8
IO ()
printSettingsSetPrinter ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- printer
-> m () -- result
printSettingsSetPrinter _obj printer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
printer' <- textToCString printer
gtk_print_settings_set_printer _obj' printer'
touchManagedPtr _obj
freeMem printer'
return ()
data PrintSettingsSetPrinterMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterMethodInfo a signature where
overloadedMethod _ = printSettingsSetPrinter
-- method PrintSettings::set_printer_lpi
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_printer_lpi" gtk_print_settings_set_printer_lpi ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- lpi : TBasicType TDouble
IO ()
printSettingsSetPrinterLpi ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Double -- lpi
-> m () -- result
printSettingsSetPrinterLpi _obj lpi = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let lpi' = realToFrac lpi
gtk_print_settings_set_printer_lpi _obj' lpi'
touchManagedPtr _obj
return ()
data PrintSettingsSetPrinterLpiMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterLpiMethodInfo a signature where
overloadedMethod _ = printSettingsSetPrinterLpi
-- method PrintSettings::set_quality
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_quality" gtk_print_settings_set_quality ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CUInt -> -- quality : TInterface "Gtk" "PrintQuality"
IO ()
printSettingsSetQuality ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> PrintQuality -- quality
-> m () -- result
printSettingsSetQuality _obj quality = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let quality' = (fromIntegral . fromEnum) quality
gtk_print_settings_set_quality _obj' quality'
touchManagedPtr _obj
return ()
data PrintSettingsSetQualityMethodInfo
instance (signature ~ (PrintQuality -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetQualityMethodInfo a signature where
overloadedMethod _ = printSettingsSetQuality
-- method PrintSettings::set_resolution
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- resolution : TBasicType TInt32
IO ()
printSettingsSetResolution ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Int32 -- resolution
-> m () -- result
printSettingsSetResolution _obj resolution = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_resolution _obj' resolution
touchManagedPtr _obj
return ()
data PrintSettingsSetResolutionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionMethodInfo a signature where
overloadedMethod _ = printSettingsSetResolution
-- method PrintSettings::set_resolution_xy
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Int32 -> -- resolution_x : TBasicType TInt32
Int32 -> -- resolution_y : TBasicType TInt32
IO ()
printSettingsSetResolutionXy ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Int32 -- resolutionX
-> Int32 -- resolutionY
-> m () -- result
printSettingsSetResolutionXy _obj resolutionX resolutionY = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_print_settings_set_resolution_xy _obj' resolutionX resolutionY
touchManagedPtr _obj
return ()
data PrintSettingsSetResolutionXyMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionXyMethodInfo a signature where
overloadedMethod _ = printSettingsSetResolutionXy
-- method PrintSettings::set_reverse
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_reverse" gtk_print_settings_set_reverse ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- reverse : TBasicType TBoolean
IO ()
printSettingsSetReverse ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Bool -- reverse
-> m () -- result
printSettingsSetReverse _obj reverse = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reverse' = (fromIntegral . fromEnum) reverse
gtk_print_settings_set_reverse _obj' reverse'
touchManagedPtr _obj
return ()
data PrintSettingsSetReverseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetReverseMethodInfo a signature where
overloadedMethod _ = printSettingsSetReverse
-- method PrintSettings::set_scale
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_scale" gtk_print_settings_set_scale ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CDouble -> -- scale : TBasicType TDouble
IO ()
printSettingsSetScale ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Double -- scale
-> m () -- result
printSettingsSetScale _obj scale = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let scale' = realToFrac scale
gtk_print_settings_set_scale _obj' scale'
touchManagedPtr _obj
return ()
data PrintSettingsSetScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetScaleMethodInfo a signature where
overloadedMethod _ = printSettingsSetScale
-- method PrintSettings::set_use_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_set_use_color" gtk_print_settings_set_use_color ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CInt -> -- use_color : TBasicType TBoolean
IO ()
printSettingsSetUseColor ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> Bool -- useColor
-> m () -- result
printSettingsSetUseColor _obj useColor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let useColor' = (fromIntegral . fromEnum) useColor
gtk_print_settings_set_use_color _obj' useColor'
touchManagedPtr _obj
return ()
data PrintSettingsSetUseColorMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetUseColorMethodInfo a signature where
overloadedMethod _ = printSettingsSetUseColor
-- method PrintSettings::to_file
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_print_settings_to_file" gtk_print_settings_to_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- file_name : TBasicType TFileName
Ptr (Ptr GError) -> -- error
IO CInt
printSettingsToFile ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> [Char] -- fileName
-> m () -- result
printSettingsToFile _obj fileName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
fileName' <- stringToCString fileName
onException (do
_ <- propagateGError $ gtk_print_settings_to_file _obj' fileName'
touchManagedPtr _obj
freeMem fileName'
return ()
) (do
freeMem fileName'
)
data PrintSettingsToFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToFileMethodInfo a signature where
overloadedMethod _ = printSettingsToFile
-- method PrintSettings::to_key_file
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_to_key_file" gtk_print_settings_to_key_file ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile"
CString -> -- group_name : TBasicType TUTF8
IO ()
printSettingsToKeyFile ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> GLib.KeyFile -- keyFile
-> T.Text -- groupName
-> m () -- result
printSettingsToKeyFile _obj keyFile groupName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let keyFile' = unsafeManagedPtrGetPtr keyFile
groupName' <- textToCString groupName
gtk_print_settings_to_key_file _obj' keyFile' groupName'
touchManagedPtr _obj
touchManagedPtr keyFile
freeMem groupName'
return ()
data PrintSettingsToKeyFileMethodInfo
instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToKeyFileMethodInfo a signature where
overloadedMethod _ = printSettingsToKeyFile
-- method PrintSettings::unset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_settings_unset" gtk_print_settings_unset ::
Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings"
CString -> -- key : TBasicType TUTF8
IO ()
printSettingsUnset ::
(MonadIO m, PrintSettingsK a) =>
a -- _obj
-> T.Text -- key
-> m () -- result
printSettingsUnset _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
gtk_print_settings_unset _obj' key'
touchManagedPtr _obj
freeMem key'
return ()
data PrintSettingsUnsetMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsUnsetMethodInfo a signature where
overloadedMethod _ = printSettingsUnset