32 lines
609 B
Ada
32 lines
609 B
Ada
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;
|