Add initial prototype.

4-high/gel/source/concrete/gel-mouse-local.ads

@@ -0,0 +1,31 @@
+with
+     lace.Subject.local;
+
+
+package gel.Mouse.local
+--
+-- Provides a concrete mouse.
+--
+is
+   type Item is limited new lace.Subject.local.item
+                        and gel.Mouse         .item with private;
+
+   type View is access all Item'Class;
+
+
+   package Forge
+   is
+      function  to_Mouse (of_Name : in String) return Item;
+      function new_Mouse (of_Name : in String) return View;
+   end Forge;
+
+   procedure free (Self : in out View);
+
+
+
+private
+
+   type Item is limited new lace.Subject.local.item
+                        and gel.Mouse         .item with null record;
+
+end gel.Mouse.local;