opengl.geometry: Add subprograms to get and set the model.

2024-04-24 12:38:29 +10:00
parent 5a249b3481
commit 6c0f5d9394
2 changed files with 7 additions and 1 deletions
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
@@ -57,6 +57,12 @@ is
   end Model_is;


+   function Model (Self : in Item) return Model_view
+   is
+   begin
+      return Self.Model;
+   end Model;
+


   function Label (Self : in Item'Class) return String