1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

 
namespace FSharpLib

// Declare class for testing, which can be used from C#
type Test() =
  // Declare event with 'EventHandler' delegate
  let evt1 = new DelegateEvent<System.EventHandler>()
  // Deckare event that'll use standard F# generic delegate type
  let evt2 = new Event<System.EventArgs>()

  // Expose the first event as C# event
  [<CLIEvent>]
  member x.Event1 = evt1.Publish
  member x.Foo1() = evt1.Trigger([| box x; box System.EventArgs.Empty |]) // trigger it

  // Expose the second event as C#-compatible event
  [<CLIEvent>]
  member x.Event2 = evt2.Publish
  member x.Foo2() = evt2.Trigger(System.EventArgs.Empty) // trigger it!