let _GLX_VISUAL_ID               = GetConf.GLX_VISUAL_ID,               (fun (v : _a) -> (Obj.magic v : Xlib.visualID option))