anchor.diff:      let WindowProxyType = Class "Window"
       let MessagePortType = Class "MessagePort"
   
  -
  +    let ErrorEvent =
  +        Class "ErrorEvent"
  +        |=> Inherits Dom.Interfaces.Event
  +        |+> Instance [
  +            "message" =? T<string>
  +            "filename" =? T<string>
  +            "lineno" =? T<int>
  +            "colno" =? T<int>
  +            "error" =? T<obj>
  +        ]
   
       let MessageEvent =
           Class "MessageEvent"
  -        // |=> Implements [T<Event>]
  +        |=> Inherits Dom.Interfaces.Event
           |+> Static [
               Constructor (T<string> * !?T<obj>)
           ]
  
positive.code:             ///  Function onobsolete;
          ]
  
  module WebWorkers =
  
      let WorkerNavigator = Class "WorkerNavigator"
      let MessagePortArray = Class "MessagePortArray"
  
      let WorkerUtils =
          Class "WorkerUtils"
          |+> Static [
              "importScripts" => (!+ T<string>) ^-> T<unit>
              "navigator" =? WorkerNavigator
          ]
  
      let WorkerLocation =
          Class "WorkerLocation"
  
      let WorkerGlobalScope = 
          let WorkerGlobalScope = Class "WorkerGlobalScope"
          WorkerGlobalScope
          // |=> Implements [T<EventTarget>; WorkerUtils]
          |+> Instance [
              "self" =? WorkerGlobalScope
              "location" =? WorkerLocation
              "close" => T<unit> ^-> T<unit>
              // attribute Function onerror;
          ]
      
      let SharedWorkerScope =   
          Class "SharedWorkerGlobalScope"
              |=> Inherits WorkerGlobalScope
              |+> Instance [
                  "name" =? T<string>
                  "applicationCache" =? AppCache.ApplicationCache
                  //           attribute Function onconnect;
              ]
  
      let DedicatedWorkerGlobalScope =
          Class "DedicatedWorkerGlobalScope"
          |=> Inherits WorkerGlobalScope
          |+> Instance [
              "postMessage" => (T<obj> * !? MessagePortArray) ^-> T<unit>
              /// attribute Function onmessage;
              
          ]
          
      let AbstractWorker =
          Class "AbstractWorker"
          // |=> Implements [T<EventTarget>]
          |+> Instance [
              // attribute Function onerror;
              ]
  
      let Worker =           
          Class "Worker"
          |=> Inherits AbstractWorker
          |+> Instance [
              "terminate" => T<unit> ^-> T<unit>
              "postMessage" => (T<obj> * !? MessagePortArray) ^-> T<unit>
              // attribute Function onmessage;
          ]
  
  module General = 
      let BarProp =
          let BarProp = Class "BarProp"
  
negative.code:                 General.BarProp
                  General.History
                  General.Location
                  General.ErrorEvent
                  General.MessageEvent
                  General.MessagePort
                  General.Navigator
                  General.ScrollRestoration
                  General.UndoManager
                  General.WindowOrWorkerGlobalScope
                  General.Window
                  General.CSSSD
                  General.MQL
  