opengl: Cosmetics.

3-mid/opengl/source/lean/geometry/opengl-primitive.adb

@@ -1,8 +1,10 @@
 with
      openGL.Tasks,
+     openGL.Errors,
      GL.Binding,
      ada.unchecked_Deallocation;
 
+
 package body openGL.Primitive
 is
    ---------
@@ -16,6 +18,7 @@ is
    end define;
 
 
+
    procedure free (Self : in out View)
    is
       procedure deallocate is new ada.Unchecked_Deallocation (Primitive.item'Class,
@@ -88,6 +91,7 @@ is
       if Self.line_Width /= unused_line_Width
       then
          glLineWidth (glFloat (Self.line_Width));
+         Errors.log;
       end if;
    end render;