nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Rod Kay
2024-04-24 12:38:29 +10:00
parent 5a249b3481
commit 6c0f5d9394
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
3-mid/opengl/source/lean/geometry/opengl-geometry.adb
View File

@@ -57,6 +57,12 @@ is
end Model_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 function Label (Self : in Item'Class) return String

2
3-mid/opengl/source/lean/geometry/opengl-geometry.ads
View File

@@ -45,7 +45,7 @@ is
type Model_view is access all openGL.Model.item'Class; type Model_view is access all openGL.Model.item'Class;
procedure Model_is (Self : in out Item; Now : in Model_view); procedure Model_is (Self : in out Item; Now : in Model_view);
function Model (Self : in Item) return Model_view;
procedure Label_is (Self : in out Item'Class; Now : in String); procedure Label_is (Self : in out Item'Class; Now : in String);
function Label (Self : in Item'Class) return String; function Label (Self : in Item'Class) return String;