made ThreadStatics public (allowing evacuation in WinForms/WPF "thread-stealing" scenarios)

Author: krauthaufen

src/FSharp.Data.Adaptive/Core/AdaptiveObject.fs

@@ -97,6 +97,10 @@ module AdadptiveObjectExtensions =
         [<DefaultValue; ThreadStatic>]
         static val mutable private _Callbacks : list<unit -> unit>
 
+        static member Callbacks
+            with get() = AfterEvaluateCallbacks._Callbacks
+            and set v = AfterEvaluateCallbacks._Callbacks <- v
+
         static member Add(action : unit -> unit) =
             if AdaptiveObject.UnsafeEvaluationDepth <= 0 then transact action
             elif isNull (AfterEvaluateCallbacks._Callbacks :> obj) then AfterEvaluateCallbacks._Callbacks <- [action]

src/FSharp.Data.Adaptive/Core/Transaction.fs

@@ -72,12 +72,12 @@ type Transaction() =
     /// Gets or sets the transaction currently running on this thread (if any)
     static member Running
         with get() = Transaction.RunningTransaction
-        and internal set r = Transaction.RunningTransaction <- r
+        and set r = Transaction.RunningTransaction <- r
 
     /// Gets or sets the transaction currently being built on this thread (via transact (fun () -> ...))
     static member Current
         with get() = Transaction.CurrentTransaction
-        and internal set r = Transaction.CurrentTransaction <- r
+        and set r = Transaction.CurrentTransaction <- r
 
     /// Indicates if inside a running Transaction
     static member HasRunning =