anchor.diff:                  "removeItem" => T<string> ^-> T<unit>
                   "setItem" => T<string> * T<string> ^-> T<unit>
               ]
  +            
  +    let StorageEvent =
  +        Class "StorageEvent"
  +        |+> Protocol [
  +                "key" =? T<string>
  +                "newValue" =? T<string>
  +                "oldValue" =? T<string>
  +                "storageArea" =? Storage
  +                "url" =? T<string>
  +            ]            
   
   module AppCache =
       let ApplicationCache =
  
positive.code:             "onselect" =@ f
              "onshow" =@ f
              "onstalled" =@ f
              "onstorage" =@ f
              "onsubmit" =@ f
              "onsuspend" =@ f
              "ontimeupdate" =@ f
  
negative.code:                 WebSockets.WebSocketReadyState
                  WebStorage.LocalStorage
                  WebStorage.SessionStorage
                  WebStorage.Storage      
                  WebStorage.StorageEvent                
              ]
          ]
  