anchor.diff:          base.OnHandleCreated(e)
           loaded <- true
           base.MakeCurrent()
  -            
  -    override x.OnPaint(e) =
  +         
  +    member x.Render() = 
           if loaded then
               needsRedraw <- false
               if isNull contextHandle || contextHandle.Handle.IsDisposed then
  
positive.code: //                        while sw.Elapsed.TotalMilliseconds < 10.0 do 1;
  
  
  
                          x.SwapBuffers()
                          //System.Threading.Thread.Sleep(200)
                          sw.Stop()
                          if not first then
                              avgFrameTime.Add(sw.Elapsed.TotalSeconds)
  
  
negative.code:     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
  