let _GLX_TRANSPARENT_RED_VALUE = GetConf.GLX_TRANSPARENT_RED_VALUE, (fun (v : _a) -> (Obj.magic v : int ))