{- | 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.Structs.IconSource ( -- * Exported types IconSource(..) , noIconSource , -- * Methods -- ** iconSourceCopy iconSourceCopy , -- ** iconSourceFree iconSourceFree , -- ** iconSourceGetDirection iconSourceGetDirection , -- ** iconSourceGetDirectionWildcarded iconSourceGetDirectionWildcarded , -- ** iconSourceGetFilename iconSourceGetFilename , -- ** iconSourceGetIconName iconSourceGetIconName , -- ** iconSourceGetPixbuf iconSourceGetPixbuf , -- ** iconSourceGetSize iconSourceGetSize , -- ** iconSourceGetSizeWildcarded iconSourceGetSizeWildcarded , -- ** iconSourceGetState iconSourceGetState , -- ** iconSourceGetStateWildcarded iconSourceGetStateWildcarded , -- ** iconSourceNew iconSourceNew , -- ** iconSourceSetDirection iconSourceSetDirection , -- ** iconSourceSetDirectionWildcarded iconSourceSetDirectionWildcarded , -- ** iconSourceSetFilename iconSourceSetFilename , -- ** iconSourceSetIconName iconSourceSetIconName , -- ** iconSourceSetPixbuf iconSourceSetPixbuf , -- ** iconSourceSetSize iconSourceSetSize , -- ** iconSourceSetSizeWildcarded iconSourceSetSizeWildcarded , -- ** iconSourceSetState iconSourceSetState , -- ** iconSourceSetStateWildcarded iconSourceSetStateWildcarded , ) 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.GdkPixbuf as GdkPixbuf newtype IconSource = IconSource (ForeignPtr IconSource) foreign import ccall "gtk_icon_source_get_type" c_gtk_icon_source_get_type :: IO GType instance BoxedObject IconSource where boxedType _ = c_gtk_icon_source_get_type noIconSource :: Maybe IconSource noIconSource = Nothing -- method IconSource::new -- method type : Constructor -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gtk" "IconSource" -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_new" gtk_icon_source_new :: IO (Ptr IconSource) {-# DEPRECATED iconSourceNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceNew :: (MonadIO m) => m IconSource iconSourceNew = liftIO $ do result <- gtk_icon_source_new checkUnexpectedReturnNULL "gtk_icon_source_new" result result' <- (wrapBoxed IconSource) result return result' -- method IconSource::copy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSource" -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_copy" gtk_icon_source_copy :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO (Ptr IconSource) {-# DEPRECATED iconSourceCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceCopy :: (MonadIO m) => IconSource -> -- _obj m IconSource iconSourceCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_copy _obj' checkUnexpectedReturnNULL "gtk_icon_source_copy" result result' <- (wrapBoxed IconSource) result touchManagedPtr _obj return result' -- method IconSource::free -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_free" gtk_icon_source_free :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO () {-# DEPRECATED iconSourceFree ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceFree :: (MonadIO m) => IconSource -> -- _obj m () iconSourceFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_icon_source_free _obj' touchManagedPtr _obj return () -- method IconSource::get_direction -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextDirection" -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_direction" gtk_icon_source_get_direction :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CUInt {-# DEPRECATED iconSourceGetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetDirection :: (MonadIO m) => IconSource -> -- _obj m TextDirection iconSourceGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_direction _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method IconSource::get_direction_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_direction_wildcarded" gtk_icon_source_get_direction_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CInt {-# DEPRECATED iconSourceGetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetDirectionWildcarded :: (MonadIO m) => IconSource -> -- _obj m Bool iconSourceGetDirectionWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_direction_wildcarded _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method IconSource::get_filename -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFileName -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_filename" gtk_icon_source_get_filename :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CString {-# DEPRECATED iconSourceGetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetFilename :: (MonadIO m) => IconSource -> -- _obj m [Char] iconSourceGetFilename _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_filename _obj' checkUnexpectedReturnNULL "gtk_icon_source_get_filename" result result' <- cstringToString result touchManagedPtr _obj return result' -- method IconSource::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_icon_name" gtk_icon_source_get_icon_name :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CString {-# DEPRECATED iconSourceGetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetIconName :: (MonadIO m) => IconSource -> -- _obj m T.Text iconSourceGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_icon_name _obj' checkUnexpectedReturnNULL "gtk_icon_source_get_icon_name" result result' <- cstringToText result touchManagedPtr _obj return result' -- method IconSource::get_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_pixbuf" gtk_icon_source_get_pixbuf :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO (Ptr GdkPixbuf.Pixbuf) {-# DEPRECATED iconSourceGetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetPixbuf :: (MonadIO m) => IconSource -> -- _obj m GdkPixbuf.Pixbuf iconSourceGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_pixbuf _obj' checkUnexpectedReturnNULL "gtk_icon_source_get_pixbuf" result result' <- (newObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj return result' -- method IconSource::get_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_size" gtk_icon_source_get_size :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO Int32 {-# DEPRECATED iconSourceGetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetSize :: (MonadIO m) => IconSource -> -- _obj m Int32 iconSourceGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_size _obj' touchManagedPtr _obj return result -- method IconSource::get_size_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_size_wildcarded" gtk_icon_source_get_size_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CInt {-# DEPRECATED iconSourceGetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetSizeWildcarded :: (MonadIO m) => IconSource -> -- _obj m Bool iconSourceGetSizeWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_size_wildcarded _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method IconSource::get_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateType" -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_state" gtk_icon_source_get_state :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CUInt {-# DEPRECATED iconSourceGetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetState :: (MonadIO m) => IconSource -> -- _obj m StateType iconSourceGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_state _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method IconSource::get_state_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_get_state_wildcarded" gtk_icon_source_get_state_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" IO CInt {-# DEPRECATED iconSourceGetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetStateWildcarded :: (MonadIO m) => IconSource -> -- _obj m Bool iconSourceGetStateWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_state_wildcarded _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method IconSource::set_direction -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_direction" gtk_icon_source_set_direction :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CUInt -> -- direction : TInterface "Gtk" "TextDirection" IO () {-# DEPRECATED iconSourceSetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetDirection :: (MonadIO m) => IconSource -> -- _obj TextDirection -> -- direction m () iconSourceSetDirection _obj direction = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let direction' = (fromIntegral . fromEnum) direction gtk_icon_source_set_direction _obj' direction' touchManagedPtr _obj return () -- method IconSource::set_direction_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_direction_wildcarded" gtk_icon_source_set_direction_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CInt -> -- setting : TBasicType TBoolean IO () {-# DEPRECATED iconSourceSetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetDirectionWildcarded :: (MonadIO m) => IconSource -> -- _obj Bool -> -- setting m () iconSourceSetDirectionWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_icon_source_set_direction_wildcarded _obj' setting' touchManagedPtr _obj return () -- method IconSource::set_filename -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_filename" gtk_icon_source_set_filename :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CString -> -- filename : TBasicType TFileName IO () {-# DEPRECATED iconSourceSetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetFilename :: (MonadIO m) => IconSource -> -- _obj [Char] -> -- filename m () iconSourceSetFilename _obj filename = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj filename' <- stringToCString filename gtk_icon_source_set_filename _obj' filename' touchManagedPtr _obj freeMem filename' return () -- method IconSource::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_icon_name" gtk_icon_source_set_icon_name :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CString -> -- icon_name : TBasicType TUTF8 IO () {-# DEPRECATED iconSourceSetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetIconName :: (MonadIO m) => IconSource -> -- _obj Maybe (T.Text) -> -- icon_name m () iconSourceSetIconName _obj icon_name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj maybeIcon_name <- case icon_name of Nothing -> return nullPtr Just jIcon_name -> do jIcon_name' <- textToCString jIcon_name return jIcon_name' gtk_icon_source_set_icon_name _obj' maybeIcon_name touchManagedPtr _obj freeMem maybeIcon_name return () -- method IconSource::set_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_pixbuf" gtk_icon_source_set_pixbuf :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" IO () {-# DEPRECATED iconSourceSetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => IconSource -> -- _obj a -> -- pixbuf m () iconSourceSetPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf gtk_icon_source_set_pixbuf _obj' pixbuf' touchManagedPtr _obj touchManagedPtr pixbuf return () -- method IconSource::set_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_size" gtk_icon_source_set_size :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" Int32 -> -- size : TBasicType TInt32 IO () {-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetSize :: (MonadIO m) => IconSource -> -- _obj Int32 -> -- size m () iconSourceSetSize _obj size = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_icon_source_set_size _obj' size touchManagedPtr _obj return () -- method IconSource::set_size_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_size_wildcarded" gtk_icon_source_set_size_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CInt -> -- setting : TBasicType TBoolean IO () {-# DEPRECATED iconSourceSetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetSizeWildcarded :: (MonadIO m) => IconSource -> -- _obj Bool -> -- setting m () iconSourceSetSizeWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_icon_source_set_size_wildcarded _obj' setting' touchManagedPtr _obj return () -- method IconSource::set_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_state" gtk_icon_source_set_state :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CUInt -> -- state : TInterface "Gtk" "StateType" IO () {-# DEPRECATED iconSourceSetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetState :: (MonadIO m) => IconSource -> -- _obj StateType -> -- state m () iconSourceSetState _obj state = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let state' = (fromIntegral . fromEnum) state gtk_icon_source_set_state _obj' state' touchManagedPtr _obj return () -- method IconSource::set_state_wildcarded -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_state_wildcarded" gtk_icon_source_set_state_wildcarded :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" CInt -> -- setting : TBasicType TBoolean IO () {-# DEPRECATED iconSourceSetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetStateWildcarded :: (MonadIO m) => IconSource -> -- _obj Bool -> -- setting m () iconSourceSetStateWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_icon_source_set_state_wildcarded _obj' setting' touchManagedPtr _obj return ()