Source position: ctgl.pas line 8803
type TglActiveShaderProgramEXT = procedure(
pipeline: GLuint;
program_: GLuint
);