anchor.diff:          {
               X : int
               Y : int
  +            Event : Dom.MouseEvent
           }
   
       /// Represents character code data.
       type CharacterCode =
           {
               CharacterCode : int
  +            Event : Dom.KeyboardEvent
           }
   
       /// Represents key code data
       type KeyCode =
           {
               KeyCode : int
  +            Event : Dom.KeyboardEvent
           }
   
       /// Interface for event handling implementation
  
positive.code:             [<JavaScript>]
              member this.OnKeyDown f el =
                  JQuery.Of(el.Body).Bind("keydown", fun _ (ev: JE) ->
                      f el {KeyCode = ev?keyCode}
                  ).Ignore
  
              [<JavaScript>]
              member this.OnKeyPress f el =
                  JQuery.Of(el.Body)
                      .Keypress(fun _ (arg: JE) -> f el ({ CharacterCode = arg.Which }))
                      .Ignore
  
              [<JavaScript>]
              member this.OnKeyUp f el  =
                  JQuery.Of(el.Body).Bind("keyup", fun _ (ev: JE) ->
                      f el {KeyCode = ev?keyCode}
                  ).Ignore
  
              [<JavaScript>]
  
negative.code:         [<JavaScript>]
          member private this.OnMouse<'T when 'T :> Pagelet> name (f: 'T -> MouseEvent -> unit) (el: 'T)  =
              JQuery.Of(el.Body).Bind(name, fun _ (ev: JE) ->
                  f el {X = ev.PageX; Y = ev.PageY; Event = ev.AsDomEvent :?> _}
              ).Ignore
  
          interface IEventSupport with
  