let _GLX_DRAWABLE_TYPE           = GetConf.GLX_DRAWABLE_TYPE,           (fun (v : _a) -> (Obj.magic v : drawable_type list  ))