From c69e792ddcc776fdd058f8c4a7d4877d296e2c0e Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Thu, 20 Apr 2023 14:50:11 +1000 Subject: [PATCH] lace.event.Logger.text: Code cosmetics. --- .../source/events/utility/lace-event-logger-text.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/1-base/lace/source/events/utility/lace-event-logger-text.adb b/1-base/lace/source/events/utility/lace-event-logger-text.adb index 3b72198..42e7328 100644 --- a/1-base/lace/source/events/utility/lace-event-logger-text.adb +++ b/1-base/lace/source/events/utility/lace-event-logger-text.adb @@ -23,6 +23,7 @@ is end to_Logger; + overriding procedure destruct (Self : in out Item) is @@ -31,6 +32,7 @@ is end destruct; + ------------- -- Operations -- @@ -47,6 +49,7 @@ is end log_Connection; + overriding procedure log_Disconnection (Self : in out Item; From : in Observer.view; To : in Subject .view; @@ -74,6 +77,7 @@ is end log_Disconnection; + overriding procedure log_Emit (Self : in out Item; From : in Subject .view; To : in Observer.view; @@ -104,6 +108,7 @@ is end log_Emit; + overriding procedure log_Relay (Self : in out Item; From : in Observer.view; To : in Observer.view; @@ -116,6 +121,7 @@ is end log_Relay; + overriding procedure log_new_Response (Self : in out Item; the_Response : in Response.view; of_Observer : in Observer.item'Class; @@ -131,6 +137,7 @@ is end log_new_Response; + overriding procedure log_rid_Response (Self : in out Item; the_Response : in Response.view; of_Observer : in Observer.item'Class; @@ -146,6 +153,7 @@ is end log_rid_Response; + overriding procedure log_Response (Self : in out Item; the_Response : in Response.view; of_Observer : in Observer.view; @@ -166,6 +174,7 @@ is end log_Response; + overriding procedure log (Self : in out Item; Message : in String) is @@ -174,6 +183,7 @@ is end log; + overriding procedure ignore (Self : in out Item; Kind : in Event.Kind) is