anchor.diff:      let mutable threadStealing : StopStealing = 
           { new StopStealing with member x.StopStealing () = { new IDisposable with member x.Dispose() = () } }
   
  +    member x.ContextHandle = contextHandle
  +
  +    member val OnPaintRender = true with get, set
  +
       member x.DisableThreadStealing  
           with get () = threadStealing 
           and set v = threadStealing <- v
  
positive.code:                         transact (fun () -> Mod.change sizes size)
  
                      needsRedraw <- false
                      
  //    override x.OnResize(e) =
  //        base.OnResize(e)
  
negative.code:         base.OnHandleCreated(e)
          loaded <- true
          base.MakeCurrent()
           
      member x.Render() = 
          if loaded then
              needsRedraw <- false
              if isNull contextHandle || contextHandle.Handle.IsDisposed then
  