From: Duncan C. <dun...@wo...> - 2007-11-10 18:17:53
|
Fri Nov 9 20:04:50 PST 2007 Peter Gavin <pg...@gm...> * glib: S.G.MainLoop: new API: mainContextFindSourceById, sourceDestroy, sourceIsDestroyed hunk ./glib/System/Glib/MainLoop.chs.pp 52 + mainContextFindSourceById, hunk ./glib/System/Glib/MainLoop.chs.pp 56 - sourceGetPriority + sourceGetPriority, + sourceDestroy, + sourceIsDestroyed hunk ./glib/System/Glib/MainLoop.chs.pp 301 +mainContextFindSourceById :: MainContext + -> Word + -> IO Source +mainContextFindSourceById context id = + {# call main_context_find_source_by_id #} context (fromIntegral id) >>= newSource . castPtr + hunk ./glib/System/Glib/MainLoop.chs.pp 332 +sourceDestroy :: Source + -> IO () +sourceDestroy source = + {# call source_destroy #} source + +sourceIsDestroyed :: Source + -> IO Bool +sourceIsDestroyed source = + liftM toBool $ {# call source_is_destroyed #} source |