diff options
Diffstat (limited to 'lib/Phi/Bindings/Util.hsc')
| -rw-r--r-- | lib/Phi/Bindings/Util.hsc | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/Phi/Bindings/Util.hsc b/lib/Phi/Bindings/Util.hsc index 5058a8b..32737ff 100644 --- a/lib/Phi/Bindings/Util.hsc +++ b/lib/Phi/Bindings/Util.hsc @@ -1,10 +1,13 @@ {-# LANGUAGE ForeignFunctionInterface #-} module Phi.Bindings.Util ( setClassHint + , visualIDFromVisual + , putClientMessage , createXlibSurface ) where +#include <X11/Xlib.h> #include <X11/Xutil.h> #include <cairo.h> #include <cairo-xlib.h> @@ -14,6 +17,7 @@ import Foreign.C.String (withCString) import Foreign.C.Types import Foreign.Ptr import Foreign.Marshal.Alloc (alloca, allocaBytes) +import Foreign.Marshal.Array import Foreign.Storable import Graphics.X11.Xlib @@ -33,6 +37,17 @@ setClassHint disp wnd hint = allocaBytes (#size XClassHint) $ \p -> (#poke XClassHint, res_class) p res_class xSetClassHint disp wnd p +foreign import ccall unsafe "X11/Xlib.h XVisualIDFromVisual" + visualIDFromVisual :: Visual -> VisualID + +putClientMessage :: XEventPtr -> Window -> Atom -> [CLong] -> IO () +putClientMessage event window message_type messageData = do + setEventType event clientMessage + (#poke XClientMessageEvent, window) event window + (#poke XClientMessageEvent, message_type) event message_type + (#poke XClientMessageEvent, format) event (32 :: CInt) + pokeArray ((#ptr XClientMessageEvent, data.l) event) $ take 5 messageData + foreign import ccall unsafe "cairo-xlib.h cairo_xlib_surface_create" xlibSurfaceCreate :: Display -> Drawable -> Visual -> CInt -> CInt -> IO (Ptr Surface) @@ -42,3 +57,4 @@ createXlibSurface dpy drawable visual width height = do surface <- mkSurface surfacePtr manageSurface surface return surface + |