module GI.Atk.Objects.Misc
(
Misc(..) ,
MiscK ,
toMisc ,
noMisc ,
miscGetInstance ,
miscThreadsEnter ,
miscThreadsLeave ,
) 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.Atk.Types
import GI.Atk.Callbacks
import qualified GI.GObject as GObject
newtype Misc = Misc (ForeignPtr Misc)
foreign import ccall "atk_misc_get_type"
c_atk_misc_get_type :: IO GType
type instance ParentTypes Misc = MiscParentTypes
type MiscParentTypes = '[GObject.Object]
instance GObject Misc where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_atk_misc_get_type
class GObject o => MiscK o
instance (GObject o, IsDescendantOf Misc o) => MiscK o
toMisc :: MiscK o => o -> IO Misc
toMisc = unsafeCastTo Misc
noMisc :: Maybe Misc
noMisc = Nothing
type instance AttributeList Misc = MiscAttributeList
type MiscAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList Misc = MiscSignalList
type MiscSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter ::
Ptr Misc ->
IO ()
miscThreadsEnter ::
(MonadIO m, MiscK a) =>
a ->
m ()
miscThreadsEnter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_misc_threads_enter _obj'
touchManagedPtr _obj
return ()
foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave ::
Ptr Misc ->
IO ()
miscThreadsLeave ::
(MonadIO m, MiscK a) =>
a ->
m ()
miscThreadsLeave _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_misc_threads_leave _obj'
touchManagedPtr _obj
return ()
foreign import ccall "atk_misc_get_instance" atk_misc_get_instance ::
IO (Ptr Misc)
miscGetInstance ::
(MonadIO m) =>
m Misc
miscGetInstance = liftIO $ do
result <- atk_misc_get_instance
checkUnexpectedReturnNULL "atk_misc_get_instance" result
result' <- (newObject Misc) result
return result'