From 3d771a7d39e7e81c8d5652a76b7b0ec34ee7fb66 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 17 May 2009 16:01:13 +0000
Subject: [PATCH]   * when loading the functions for a particular OpenGL
 function, also     automatically load those for lower versions (patch by
 "satan", mantis     #13687)

git-svn-id: trunk@13167 -
---
 packages/opengl/src/glext.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/opengl/src/glext.pp b/packages/opengl/src/glext.pp
index 4917bc1c80..cdd661c03d 100644
--- a/packages/opengl/src/glext.pp
+++ b/packages/opengl/src/glext.pp
@@ -4484,7 +4484,7 @@ begin
     if not Assigned(glCompressedTexSubImage1D) then Exit;
     glGetCompressedTexImage := wglGetProcAddress('glGetCompressedTexImage');
     if not Assigned(glGetCompressedTexImage) then Exit;
-    Result := TRUE;
+    Result := Load_GL_version_1_2;
 
 end;
 
@@ -9081,7 +9081,7 @@ begin
     if not Assigned(glWindowPos3s) then Exit;
     glWindowPos3sv := wglGetProcAddress('glWindowPos3sv');
     if not Assigned(glWindowPos3sv) then Exit;
-    Result := TRUE;
+    Result := Load_GL_version_1_3;
 
 end;
 
@@ -9131,7 +9131,7 @@ begin
     if not Assigned(glGetBufferParameteriv) then Exit;
     glGetBufferPointerv := wglGetProcAddress('glGetBufferPointerv');
     if not Assigned(glGetBufferPointerv) then Exit;
-    Result := TRUE;
+    Result := Load_GL_version_1_4;
 
 end;
 
@@ -9329,7 +9329,7 @@ begin
     if not Assigned(glVertexAttrib4usv) then Exit;
     glVertexAttribPointer := wglGetProcAddress('glVertexAttribPointer');
     if not Assigned(glVertexAttribPointer) then Exit;
-    Result := TRUE;
+    Result := Load_GL_version_1_5;
 
 end;