gi-webkit-0.2.4.13: GI/WebKit/Objects/IconDatabase.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.WebKit.Objects.IconDatabase
(
-- * Exported types
IconDatabase(..) ,
IconDatabaseK ,
toIconDatabase ,
noIconDatabase ,
-- * Methods
-- ** iconDatabaseClear
IconDatabaseClearMethodInfo ,
iconDatabaseClear ,
-- ** iconDatabaseGetIconPixbuf
IconDatabaseGetIconPixbufMethodInfo ,
iconDatabaseGetIconPixbuf ,
-- ** iconDatabaseGetIconUri
IconDatabaseGetIconUriMethodInfo ,
iconDatabaseGetIconUri ,
-- ** iconDatabaseGetPath
IconDatabaseGetPathMethodInfo ,
iconDatabaseGetPath ,
-- ** iconDatabaseSetPath
IconDatabaseSetPathMethodInfo ,
iconDatabaseSetPath ,
-- * Properties
-- ** Path
IconDatabasePathPropertyInfo ,
constructIconDatabasePath ,
getIconDatabasePath ,
setIconDatabasePath ,
-- * Signals
-- ** IconLoaded
IconDatabaseIconLoadedCallback ,
IconDatabaseIconLoadedCallbackC ,
IconDatabaseIconLoadedSignalInfo ,
afterIconDatabaseIconLoaded ,
iconDatabaseIconLoadedCallbackWrapper ,
iconDatabaseIconLoadedClosure ,
mkIconDatabaseIconLoadedCallback ,
noIconDatabaseIconLoadedCallback ,
onIconDatabaseIconLoaded ,
) 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.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
import qualified GI.GdkPixbuf as GdkPixbuf
newtype IconDatabase = IconDatabase (ForeignPtr IconDatabase)
foreign import ccall "webkit_icon_database_get_type"
c_webkit_icon_database_get_type :: IO GType
type instance ParentTypes IconDatabase = IconDatabaseParentTypes
type IconDatabaseParentTypes = '[GObject.Object]
instance GObject IconDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_icon_database_get_type
class GObject o => IconDatabaseK o
instance (GObject o, IsDescendantOf IconDatabase o) => IconDatabaseK o
toIconDatabase :: IconDatabaseK o => o -> IO IconDatabase
toIconDatabase = unsafeCastTo IconDatabase
noIconDatabase :: Maybe IconDatabase
noIconDatabase = Nothing
type family ResolveIconDatabaseMethod (t :: Symbol) (o :: *) :: * where
ResolveIconDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveIconDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveIconDatabaseMethod "clear" o = IconDatabaseClearMethodInfo
ResolveIconDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveIconDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveIconDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveIconDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveIconDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveIconDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveIconDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveIconDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveIconDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveIconDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveIconDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveIconDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveIconDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveIconDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveIconDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveIconDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveIconDatabaseMethod "getIconPixbuf" o = IconDatabaseGetIconPixbufMethodInfo
ResolveIconDatabaseMethod "getIconUri" o = IconDatabaseGetIconUriMethodInfo
ResolveIconDatabaseMethod "getPath" o = IconDatabaseGetPathMethodInfo
ResolveIconDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveIconDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveIconDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveIconDatabaseMethod "setPath" o = IconDatabaseSetPathMethodInfo
ResolveIconDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveIconDatabaseMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveIconDatabaseMethod t IconDatabase, MethodInfo info IconDatabase p) => IsLabelProxy t (IconDatabase -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveIconDatabaseMethod t IconDatabase, MethodInfo info IconDatabase p) => IsLabel t (IconDatabase -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal IconDatabase::icon-loaded
type IconDatabaseIconLoadedCallback =
WebFrame ->
T.Text ->
IO ()
noIconDatabaseIconLoadedCallback :: Maybe IconDatabaseIconLoadedCallback
noIconDatabaseIconLoadedCallback = Nothing
type IconDatabaseIconLoadedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconDatabaseIconLoadedCallback :: IconDatabaseIconLoadedCallbackC -> IO (FunPtr IconDatabaseIconLoadedCallbackC)
iconDatabaseIconLoadedClosure :: IconDatabaseIconLoadedCallback -> IO Closure
iconDatabaseIconLoadedClosure cb = newCClosure =<< mkIconDatabaseIconLoadedCallback wrapped
where wrapped = iconDatabaseIconLoadedCallbackWrapper cb
iconDatabaseIconLoadedCallbackWrapper ::
IconDatabaseIconLoadedCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr () ->
IO ()
iconDatabaseIconLoadedCallbackWrapper _cb _ frame frameUri _ = do
frame' <- (newObject WebFrame) frame
frameUri' <- cstringToText frameUri
_cb frame' frameUri'
onIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId
onIconDatabaseIconLoaded obj cb = liftIO $ connectIconDatabaseIconLoaded obj cb SignalConnectBefore
afterIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId
afterIconDatabaseIconLoaded obj cb = connectIconDatabaseIconLoaded obj cb SignalConnectAfter
connectIconDatabaseIconLoaded :: (GObject a, MonadIO m) =>
a -> IconDatabaseIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId
connectIconDatabaseIconLoaded obj cb after = liftIO $ do
cb' <- mkIconDatabaseIconLoadedCallback (iconDatabaseIconLoadedCallbackWrapper cb)
connectSignalFunPtr obj "icon-loaded" cb' after
-- VVV Prop "path"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> m T.Text
getIconDatabasePath obj = liftIO $ getObjectPropertyString obj "path"
setIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> T.Text -> m ()
setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val
constructIconDatabasePath :: T.Text -> IO ([Char], GValue)
constructIconDatabasePath val = constructObjectPropertyString "path" val
data IconDatabasePathPropertyInfo
instance AttrInfo IconDatabasePathPropertyInfo where
type AttrAllowedOps IconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint IconDatabasePathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint IconDatabasePathPropertyInfo = IconDatabaseK
type AttrGetType IconDatabasePathPropertyInfo = T.Text
type AttrLabel IconDatabasePathPropertyInfo = "path"
attrGet _ = getIconDatabasePath
attrSet _ = setIconDatabasePath
attrConstruct _ = constructIconDatabasePath
type instance AttributeList IconDatabase = IconDatabaseAttributeList
type IconDatabaseAttributeList = ('[ '("path", IconDatabasePathPropertyInfo)] :: [(Symbol, *)])
data IconDatabaseIconLoadedSignalInfo
instance SignalInfo IconDatabaseIconLoadedSignalInfo where
type HaskellCallbackType IconDatabaseIconLoadedSignalInfo = IconDatabaseIconLoadedCallback
connectSignal _ = connectIconDatabaseIconLoaded
type instance SignalList IconDatabase = IconDatabaseSignalList
type IconDatabaseSignalList = ('[ '("iconLoaded", IconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method IconDatabase::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", 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 "webkit_icon_database_clear" webkit_icon_database_clear ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
IO ()
{-# DEPRECATED iconDatabaseClear ["(Since version 1.8)","Use webkit_favicon_database_clear() instead."]#-}
iconDatabaseClear ::
(MonadIO m, IconDatabaseK a) =>
a -- _obj
-> m () -- result
iconDatabaseClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_icon_database_clear _obj'
touchManagedPtr _obj
return ()
data IconDatabaseClearMethodInfo
instance (signature ~ (m ()), MonadIO m, IconDatabaseK a) => MethodInfo IconDatabaseClearMethodInfo a signature where
overloadedMethod _ = iconDatabaseClear
-- method IconDatabase::get_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_icon_database_get_icon_pixbuf" webkit_icon_database_get_icon_pixbuf ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- page_uri : TBasicType TUTF8
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconDatabaseGetIconPixbuf ["(Since version 1.8)","Use webkit_favicon_database_try_get_favicon_pixbuf() instead."]#-}
iconDatabaseGetIconPixbuf ::
(MonadIO m, IconDatabaseK a) =>
a -- _obj
-> T.Text -- pageUri
-> m GdkPixbuf.Pixbuf -- result
iconDatabaseGetIconPixbuf _obj pageUri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pageUri' <- textToCString pageUri
result <- webkit_icon_database_get_icon_pixbuf _obj' pageUri'
checkUnexpectedReturnNULL "webkit_icon_database_get_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem pageUri'
return result'
data IconDatabaseGetIconPixbufMethodInfo
instance (signature ~ (T.Text -> m GdkPixbuf.Pixbuf), MonadIO m, IconDatabaseK a) => MethodInfo IconDatabaseGetIconPixbufMethodInfo a signature where
overloadedMethod _ = iconDatabaseGetIconPixbuf
-- method IconDatabase::get_icon_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", 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 "webkit_icon_database_get_icon_uri" webkit_icon_database_get_icon_uri ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- page_uri : TBasicType TUTF8
IO CString
{-# DEPRECATED iconDatabaseGetIconUri ["(Since version 1.8)","Use webkit_favicon_database_get_favicon_uri() instead."]#-}
iconDatabaseGetIconUri ::
(MonadIO m, IconDatabaseK a) =>
a -- _obj
-> T.Text -- pageUri
-> m T.Text -- result
iconDatabaseGetIconUri _obj pageUri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pageUri' <- textToCString pageUri
result <- webkit_icon_database_get_icon_uri _obj' pageUri'
checkUnexpectedReturnNULL "webkit_icon_database_get_icon_uri" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem pageUri'
return result'
data IconDatabaseGetIconUriMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IconDatabaseK a) => MethodInfo IconDatabaseGetIconUriMethodInfo a signature where
overloadedMethod _ = iconDatabaseGetIconUri
-- method IconDatabase::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", 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 "webkit_icon_database_get_path" webkit_icon_database_get_path ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
IO CString
{-# DEPRECATED iconDatabaseGetPath ["(Since version 1.8)","Use webkit_favicon_database_get_path() instead."]#-}
iconDatabaseGetPath ::
(MonadIO m, IconDatabaseK a) =>
a -- _obj
-> m T.Text -- result
iconDatabaseGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_icon_database_get_path _obj'
checkUnexpectedReturnNULL "webkit_icon_database_get_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data IconDatabaseGetPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IconDatabaseK a) => MethodInfo IconDatabaseGetPathMethodInfo a signature where
overloadedMethod _ = iconDatabaseGetPath
-- method IconDatabase::set_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", 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 "webkit_icon_database_set_path" webkit_icon_database_set_path ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- path : TBasicType TUTF8
IO ()
{-# DEPRECATED iconDatabaseSetPath ["(Since version 1.8)","Use webkit_favicon_database_set_path() instead."]#-}
iconDatabaseSetPath ::
(MonadIO m, IconDatabaseK a) =>
a -- _obj
-> T.Text -- path
-> m () -- result
iconDatabaseSetPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
webkit_icon_database_set_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
data IconDatabaseSetPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IconDatabaseK a) => MethodInfo IconDatabaseSetPathMethodInfo a signature where
overloadedMethod _ = iconDatabaseSetPath