*** empty log message ***

2025-04-22 06:49:27 +02:00 · 2002-07-16 12:33:15 +00:00 · 2002-07-16 12:33:15 +00:00 · 6517a7c0d0
commit 6517a7c0d0
parent b43c567edb
1 changed files with 12 additions and 0 deletions
--- a/tests/webtbs/tw2041.pp
+++ b/tests/webtbs/tw2041.pp
@ -0,0 +1,12 @@
+{ %version=1.1}
+{$mode objfpc}
+
+type
+  ITest = interface                                                                                       
+    procedure Put(Key: Integer; Item: IUnknown);                                                                        
+    function Get(Key: Integer): IUnknown;                                                                              
+    property Item[Key: Integer]: IUnknown read Get write Put; default;                                                 
+  end;
+
+begin
+end.