At Mon, 5 Feb 2007 00:02:18 +0000, Ross Paterson wrote:
On Sun, Feb 04, 2007 at 03:52:36PM -0800, Jeremy Shaw wrote:
I have some code that adds support for ClientMessage, peekXButtonEvent, and XGetAtomName:
http://www.n-heptane.com/nhlab/repos/haskell-glx/ClientMessage.hsc
This code is in reasonably good shape (and is only a few lines anyway).
I can follow the library submission guidelines:
http://haskell.org/haskellwiki/Library_submissions
unless there is a better way.
X11 is a fairly peripheral library, so there's no need for that -- just send a patch against the X11 darcs repository, e.g. to me.
Hello, I have been working on this a bit, but ran into a problem, Xlib does not currently have any support for XVisualInfo. Is this intentional? Or, just another thing that has not been done yet? Two of the functions in the glx bindings take or return XVisualInfo as a parameter: foreign import ccall unsafe "glXChooseVisual" c_glXChooseVisual :: Display -> ScreenNumber -> AttribList -> IO XVisualInfo foreign import ccall unsafe "glXCreateContext" c_glXCreateContext :: Display -> XVisualInfo -> Context -> Bool -> IO Context But, it in the existing Xlib bindings, the XVisualInfo stuff has been omitted: -- XGetVisualInfo omitted -- XMatchVisualInfo omitted In addition to passing around pointers to XVisualInfo, I also needed to access three members of the XVisualInfo structure: -- * Access functions for members of XVisualInfo visual :: XVisualInfo -> Visual visual (XVisualInfo xvi) = Visual ((#ptr XVisualInfo, visual) xvi) depth :: XVisualInfo -> IO Int depth (XVisualInfo xvi) = (#peek XVisualInfo, depth) xvi visualId :: XVisualInfo -> IO VisualID visualId (XVisualInfo xvi) = ((#peek XVisualInfo, visualid) xvi) This 'visual' code no longer works, because the Visual constructor is no longer exported. However, I am thinking all this stuff belongs in the Xlib bindings and not the GLX bindngs anway. j.