let _GLX_TRANSPARENT_TYPE        = GetConf.GLX_TRANSPARENT_TYPE,        (fun (v : _a) -> (Obj.magic v : transparent_type    ))