Spring4D: Events

[Der schöne Günther]

Ich habe da mal eine Frage zu Spring.Event<T>.

An sich ist beim Event sehr wenig öffentlich: Add(T) , Remove(T) , Clear() und die Eigenschaft Enabled . In früheren Spring-Versionen gab es z.B. noch Count .

Ich bin verwirrt weshalb beispielsweise von TEvent<T> das Array Handlers: TArray<TMethodPointer> nicht öffentlich lesbar ist.

Ein konkreter Anwendungsfall: Ich möchte bei einem Event bestimmte Handler temporär entfernen und später wieder hinzufügen. Mit der derzeitigen Implementation geht das nicht.

Mir geht es nicht darum wie man das ändern könnte, sondern ich möchte die Motivation hinter dem Design verstehen. Der Urheber liest ja hier im Forum mit


PS: Was spräche denn nun bspw. gegen so etwas hier:

Code:

diff -r 8b40c231f18a -r 72569be88490 Source/Base/Spring.pas
--- a/Source/Base/Spring.pas   Fri Jan 26 11:23:01 2018 +0100
+++ b/Source/Base/Spring.pas   Fri Jan 26 20:24:57 2018 +0100
@@ -923,6 +923,7 @@
   IEvent<T> = interface(IEvent)
   {$REGION 'Property Accessors'}
     function GetInvoke: T;
+    function GetHandlers: TArray<TMethodPointer>;
   {$ENDREGION}
 
     /// <summary>
@@ -939,6 +940,7 @@
     ///   Invokes all event handlers.
     /// </summary>
     property Invoke: T read GetInvoke;
+    property Handlers: TArray<TMethodPointer> read GetHandlers;
   end;
 
   Event<T> = record
@@ -958,10 +960,12 @@
     procedure Remove(const handler: T);
     procedure RemoveAll(instance: Pointer);
     procedure Clear;
+    function GetHandlers(): TArray<TMethodPointer>; experimental;
 
     property CanInvoke: Boolean read GetCanInvoke;
     property Enabled: Boolean read GetEnabled write SetEnabled;
     property Invoke: T read GetInvoke;
+    property Handlers: TArray<TMethodPointer> read GetHandlers;
     property OnChanged: TNotifyEvent read GetOnChanged write SetOnChanged;
 
     /// <summary>
@@ -9625,6 +9629,12 @@
 {$ENDIF}
 end;
 
+function Event<T>.GetHandlers(): TArray<TMethodPointer>;
+begin
+    EnsureInitialized();
+    Result := TArray.Copy<TMethodPointer>(fInstance.Handlers);
+end;
+
 initialization
   Init;