anchor.diff:  
       let ActivateKeyListener =
           if not KeyListenerState.KeyListenerActive then
  +            // Using JQuery for cross-compatibility. 
               JQuery.Of(Dom.Document.Current).Keydown(fun el evt ->
                   let keyCode = evt.Which
  -                JavaScript.Log <| "DOWN: " + (string keyCode)
                   Var.Set KeyListenerState.LastPressed keyCode
                   Var.Update KeyListenerState.KeysPressed
                       (fun xs ->
  +                        // Keydown is called repeatedly (sensible right), so only add
  +                        // if it's not already in the list
                           if not (List.exists (fun x -> x = keyCode) xs) then
  -                            keyCode :: xs
  +                            xs @ [keyCode]
                           else xs)
               ) |> ignore
   
               JQuery.Of(Dom.Document.Current).Keyup(fun el evt ->
                   let keyCode = evt.Which
  -                JavaScript.Log <| "UP: " + (string keyCode)
                   Var.Update KeyListenerState.KeysPressed
                       (List.filter (fun x -> x <> keyCode))
               ) |> ignore
  
positive.code:         static member Position =
  
              let onMouseMove (evt: Dom.Event) =
                  let mEvt = evt :?> Dom.MouseEvent
                  // Update the RVars for the X and Y positions, from the information
                  // contained within the event.
                  Var.Set MousePosSt.PosV (mEvt.ClientX, mEvt.ClientY)
  
              if not MousePosSt.Active then
                  Dom.Document.Current.AddEventListener("mousemove", onMouseMove, false)
                  MousePosSt.Active <- true
  
negative.code: 
          static member MousePressed =
              ActivateButtonListener
              // True if any button is pressed
              View.Const (fun l m r -> l || m || r)
              <*> MouseBtnSt.Left.View
              <*> MouseBtnSt.Middle.View
  