nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lace.events: Rename 'destruct' to 'destroy'.

Browse Source
This commit is contained in:
Rod Kay
2024-09-16 22:54:42 +10:00
parent 875d556ab2
commit 2556755436
4 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
1-base/lace/source/events/mixin/private/lace-event_emitter.adb
View File

@@ -323,11 +323,11 @@ is
procedure destruct (Self : in out Item) procedure destroy (Self : in out Item)
is is
begin begin
Self.Delegator.stop; Self.Delegator.stop;
end destruct; end destroy;

2
1-base/lace/source/events/mixin/private/lace-event_emitter.ads
View File

@@ -16,7 +16,7 @@ is
procedure define (Self : in out Item; Subject : in lace.Subject.view); procedure define (Self : in out Item; Subject : in lace.Subject.view);
procedure destruct (Self : in out Item); procedure destroy (Self : in out Item);
procedure add (Self : in out Item; new_Event : in lace.Event.item'Class); procedure add (Self : in out Item; new_Event : in lace.Event.item'Class);

6
1-base/lace/source/events/mixin/private/lace-event_sender.adb
View File

@@ -124,11 +124,11 @@ is
task body send_Delegator task body send_Delegator
is is
the_subject_Name : string_Holder; the_subject_Name : string_Holder;
the_Senders : aliased safe_Senders; the_Senders : aliased safe_Senders;
the_Pairs : safe_Pairs_view; the_Pairs : safe_Pairs_view;
new_Pairs : pair_Vector; new_Pairs : pair_Vector;
Done : Boolean := False; Done : Boolean := False;
@@ -303,11 +303,11 @@ is
procedure destruct (Self : in out Item) procedure destroy (Self : in out Item)
is is
begin begin
Self.Delegator.stop; Self.Delegator.stop;
end destruct; end destroy;

2
1-base/lace/source/events/mixin/private/lace-event_sender.ads
View File

@@ -17,7 +17,7 @@ is
procedure define (Self : in out Item; Subject : in lace.Subject.view); procedure define (Self : in out Item; Subject : in lace.Subject.view);
procedure destruct (Self : in out Item); procedure destroy (Self : in out Item);
procedure add (Self : in out Item; new_Event : in lace.Event.item'Class; procedure add (Self : in out Item; new_Event : in lace.Event.item'Class;
for_Observer : in lace.Observer.view; for_Observer : in lace.Observer.view;