lace_0.1.0_347e4627/source/events/interface/lace-response.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
with
     ada.Tags;


package body lace.Response
is

   function Name (Self : in Item) return String
   is
   begin
      return ada.Tags.expanded_Name (Item'Class (Self)'Tag);
   end Name;

end lace.Response;