opengl.model.hexagon.lit_textured: Enable texturing.

3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads

@@ -13,7 +13,7 @@ is
 
    type Face is
       record
-         Texture : openGL.Texture.Object := openGL.Texture.null_Object;   -- The texture to be applied to the hex.
+         Texture : openGL.asset_Name := null_Asset;     -- The texture to be applied to the hex.
       end record;
 
 
@@ -29,6 +29,9 @@ is
    --- Attributes
    --
 
+   procedure Texture_is (Self : in out Item;   Now : in openGL.asset_Name);
+
+
    overriding
    function to_GL_Geometries (Self : access Item;   Textures : access Texture.name_Map_of_texture'Class;
                                                     Fonts    : in     Font.font_id_Map_of_font) return Geometry.views;