anchor.diff:          % Handle keypress, keydown, or keyup when a keycode is defined...
           _ when ((EffectiveType==keypress orelse EffectiveType==keydown orelse EffectiveType==keyup) andalso (EffectiveKeyCode /= undefined)) ->
               [
  -                wf:f("Nitrogen.$observe_event('~s', '~s', '~s', function anonymous(event) {", [Anchor, Trigger, EffectiveType]),
  -                    wf:f("if (Nitrogen.$is_key_code(event, ~p, ~p)) { ", [EffectiveKeyCode, ShiftKey]),
  +                wf:f(<<"Nitrogen.$observe_event('~s', '~s', '~s', function(event) {">>, [Anchor, Trigger, EffectiveType]),
  +                    wf:f(<<"if (Nitrogen.$is_key_code(event, ~p, ~p)) { ">>, [EffectiveKeyCode, ShiftKey]),
                           AnchorScript, PostbackScript, WireAction, 
                           %wf:f("alert('~p:~p');",[EffectiveType, EffectiveKeyCode]),
  -                        "return false; }});"
  +                    <<"return false;">>,
  +                <<"}});">>
               ];
   
           % Run the event after a specified amount of time
           timer ->
               TempID = wf:temp_id(),
               [
  -                wf:f("document.~s = function() {", [TempID]), 
  +                wf:f(<<"document.~s = function() {">>, [TempID]), 
                   AnchorScript, PostbackScript, WireAction, 
  -                "};",
  -                wf:f("setTimeout(\"document.~s(); document.~s=null;\", ~p);", [TempID, TempID, Delay])
  +                    <<"};">>,
  +                wf:f(<<"setTimeout(\"document.~s(); document.~s=null;\", ~p);">>, [TempID, TempID, Delay])
               ];
   
           default ->
  
positive.code:         % Run some other Javascript event (click, mouseover, mouseout, etc.)
          _ when Delay == 0 ->
              [
                  wf:f("Nitrogen.$observe_event('~s', '~s', '~s', function anonymous(event) {", [Anchor, Trigger, Type]), 
                  AnchorScript, PostbackScript, WireAction, 
                  "});"
              ];
  				_ ->
              [
                  wf:f(
                  	"Nitrogen.$observe_event('~s', '~s', '~s', function anonymous(event) {setTimeout(function(){ ",
                  	[Anchor, Trigger, Type]), 
                  AnchorScript, PostbackScript, WireAction, 
                  wf:f("}, ~p)", [Delay]),
                  "});"
              ]
      end,
      Script.
  
negative.code: maybe_wire_next(_Anchor, undefined) -> do_nothing;
  maybe_wire_next(Anchor, Next) ->
      Next1 = wf_render_actions:normalize_path(Next),
      wf:defer(Anchor, #event{ type=tabkey, actions=wf:f(<<"Nitrogen.$go_next('~s');">>, [Next1])}).
  