make Program's Attached_Shaders not own their IDs

Author: flyx

src/gl/implementation/gl-objects-shaders.adb

@@ -96,7 +96,7 @@ package body GL.Objects.Shaders is
       API.Get_Shader_Type (Id, Enums.Shader_Type, Kind);
       Raise_Exception_On_OpenGL_Error;
       return Object : Shader (Kind) do
-         Object.Set_Raw_Id (Id);
+         Object.Set_Raw_Id (Id, False);
       end return;
    end Create_From_Id;
 

src/gl/interface/gl-objects-shaders.ads

@@ -22,7 +22,9 @@ package GL.Objects.Shaders is
 
    function Info_Log (Subject : Shader) return String;
 
-   -- low-level
+   -- low-level. creates a Shader object linking to the given OpenGL ID.
+   -- doesn't take ownership of the ID and therefore doesn't automatically
+   -- delete it when the last reference vanishes.
    function Create_From_Id (Id : UInt) return Shader;
 private
    type Shader (Kind : Shader_Type) is new GL_Object with null record;