anchor.diff:  
       member x.CreateGameWindow(samples : int) =
           let w = new GameWindow(runtime, enableDebug, samples)
  -        let handle = ContextHandle(w.Context, w.WindowInfo)
  -        init ctx handle
  +        init ctx 
           w
   
       interface IApplication with
  
positive.code: 
      let init =
          let initialized = ref false
          fun (ctx : Context) (handle : ContextHandle)->
              if not !initialized then
                  initialized := true
                  handle.MakeCurrent()
  
                  ctx.CurrentContextHandle <- Some handle
                  ContextHandle.Current <- Some handle
  
                  using ctx.ResourceLock (fun _ ->
                      try GLVM.vmInit()
  
negative.code:                     Log.stop()
                  )
  
  
      new(enableDebug) = new OpenGlApplication(true, enableDebug)
      new() = new OpenGlApplication(true, false)
  