ThreadLocalEvent

gistfile1.fs

type ThreadLocalEvent<'T>() = 
  let handlers = new ThreadLocal<Handler<'T>>()

  member this.Publish = this :> IDelegateEvent<Handler<'T>>
  member this.Trigger(arg:'T) =
    if handlers.Value <> null then
      handlers.Value.Invoke(this, arg)

  interface IDelegateEvent<Handler<'T>> with

    member this.AddHandler(handler : Handler<'T>) = 
        handlers.Value <- Delegate.Combine(handlers.Value, handler) :?> Handler<'T>

    member this.RemoveHandler(handler: Handler<'T>) = 
        handlers.Value <- Delegate.Remove(handlers.Value, handler) :?> Handler<'T>