threepenny-gui 0.5.0.0 → 0.6.0.1

raw patch · 75 files changed

+2326/−2972 lines, 75 filesdep +asyncdep +vectordep −parsecdep ~aesondep ~basedep ~deepseqnew-component:exe:threepenny-examples-canvasbinary-addedPVP ok

version bump matches the API change (PVP)

Dependencies added: async, vector

Dependencies removed: parsec

Dependency ranges changed: aeson, base, deepseq, filepath, safe, stm, template-haskell, time

API changes (from Hackage documentation)

Files

• CHANGELOG.md +12/−0
• README.md +5/−2
• js/comm.js +153/−0
• js/ffi.js +117/−0
• js/haskell.css +3/−0
• js/index.html +13/−0
• js/lib.js +111/−0
• js/lib/jquery-cookie.js +56/−0
• js/lib/jquery.js +4/−0
• js/log.js +12/−0
• samples/BarTab.hs +1/−1
• samples/Buttons.hs +1/−1
• samples/Canvas.hs +104/−0
• samples/Chat.hs +3/−4
• samples/DragNDropExample.hs +1/−1
• samples/DrumMachine.hs +7/−6
• samples/MissingDollars.hs +0/−131
• samples/Paths.hs +3/−3
• samples/README.md +7/−6
• samples/UseWords.hs +0/−98
• samples/static/chat.html +16/−0
• samples/static/css/DragNDropExample.css +18/−0
• samples/static/css/buttons.css +52/−0
• samples/static/css/chat.css +106/−0
• samples/static/css/fade.png binary
• samples/static/css/stripes-bg.png binary
• samples/static/css/wood-bg.png binary
• samples/static/haskell-logo.png binary
• samples/static/hihat.wav binary
• samples/static/kick.wav binary
• samples/static/snare.wav binary
• src/Control/Concurrent/Chan/Extra.hs +0/−22
• src/Control/Concurrent/Delay.hs +0/−17
• src/Foreign/Coupon.hs +0/−181
• src/Foreign/JavaScript.hs +74/−0
• src/Foreign/JavaScript/EventLoop.hs +172/−0
• src/Foreign/JavaScript/Include.hs +32/−0
• src/Foreign/JavaScript/Marshal.hs +222/−0
• src/Foreign/JavaScript/Resources.hs +24/−0
• src/Foreign/JavaScript/Server.hs +126/−0
• src/Foreign/JavaScript/Types.hs +187/−0
• src/Foreign/RemotePtr.hs +201/−0
• src/Graphics/UI/Threepenny.hs +6/−7
• src/Graphics/UI/Threepenny/Attributes.hs +2/−1
• src/Graphics/UI/Threepenny/Core.hs +41/−255
• src/Graphics/UI/Threepenny/DragNDrop.hs +3/−4
• src/Graphics/UI/Threepenny/Elements.hs +2/−1
• src/Graphics/UI/Threepenny/Events.hs +4/−5
• src/Graphics/UI/Threepenny/Internal.hs +281/−0
• src/Graphics/UI/Threepenny/Internal/Driver.hs +0/−682
• src/Graphics/UI/Threepenny/Internal/FFI.hs +0/−167
• src/Graphics/UI/Threepenny/Internal/Include.hs +0/−31
• src/Graphics/UI/Threepenny/Internal/Resources.hs +0/−57
• src/Graphics/UI/Threepenny/Internal/Types.hs +0/−269
• src/Graphics/UI/Threepenny/JQuery.hs +7/−9
• src/Graphics/UI/Threepenny/SVG/Elements.hs +84/−84
• src/Graphics/UI/driver.css +0/−3
• src/Graphics/UI/driver.js +0/−403
• src/Graphics/UI/index.html +0/−10
• src/Graphics/UI/jquery-cookie.js +0/−56
• src/Graphics/UI/jquery.js +0/−4
• threepenny-gui.cabal +53/−63
• wwwroot/and-then-haskell.txt +0/−77
• wwwroot/chat.html +0/−13
• wwwroot/css/DragNDropExample.css +0/−18
• wwwroot/css/buttons.css +0/−52
• wwwroot/css/chat.css +0/−106
• wwwroot/css/fade.png binary
• wwwroot/css/missing-dollars.css +0/−52
• wwwroot/css/stripes-bg.png binary
• wwwroot/css/use-words.css +0/−70
• wwwroot/css/wood-bg.png binary
• wwwroot/hihat.wav binary
• wwwroot/kick.wav binary
• wwwroot/snare.wav binary

@@ -1,5 +1,17 @@ ## Changelog for the `threepenny-gui` package +**0.6.0.1** -- Maintenance release.++* The `ADDR` environment variable is now parsed correctly.+* Now builds on GHC 7.8 and GHC 7.10+* The example source code in the `samples` folder has been reorganized and consolidated.++**0.6.0.0** -- Snapshot release.++* The internals of the JavaScript FFI has been reimplemented completely. A new module `Foreign.JavaScript` exports a bare JavaScript FFI in case you want to write a custom GUI framework. However, the module `Graphics.UI.Threepenny` is *not* compatible with it, even though it builds on top of it.+* The fields of `Config` type for server configuration are now prefixed with `js` instead of `tp`. Example: `jsPort`, `jsStatic`.+* The functions `loadFile` and `loadDirectory` have been *removed*, as I felt that the `jsStatic` option is sufficient for most use cases.+ **0.5.0.0** -- Snapshot release.  * Possibility to specify IP address to bind the server to.

@@ -2,16 +2,18 @@  Threepenny-gui is a GUI framework written in Haskell that uses the web browser as a display. It's very easy to install. See the -  [**Project homepage**](http://www.haskell.org/haskellwiki/Threepenny-gui)+  [**Project homepage**](http://wiki.haskell.org/Threepenny-gui)  for more information on what it does and can do for you as a library user.  ## Examples -The library comes with many examples, which can be found in the [samples](https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/samples/) folder. Follow the link for more information on how to run them.+The library comes with many examples, which can be found in the [samples](https://github.com/HeinrichApfelmus/threepenny-gui/tree/master/samples#readme) folder. Follow the link for more information on how to run them.  ## Technical overview +A program written with Threepenny is essentially a small web server that displays the user interface as a web page to any browser that connects to it.+ ### Latency  The frequent communication between browser and server@@ -56,6 +58,7 @@ * JP Moresmau * Luke Palmer * Jens Petersen+* Jaap van der Plas * rnons * Michael Snoyman * *Steve Bigham*

@@ -0,0 +1,153 @@+/* *********************************************************************+  Client-server communication+  using WebSockets+  +  The function  createWebSocket(receive)  creates a client-server+  connection. The argument function `receive` is called whenever the client+  receives a message. The connection object has a single member `send`+  which can be used to send messages to the server.+  +  In Haskell types:+  +  createWebSocket :: (JSON -> IO ()) -> IO { send :: JSON -> IO () }+  +********************************************************************* */+Haskell.createWebSocket = function (url0, receive) {+  var that = {};+  var url  = 'ws:' + url0.slice(5) + 'websocket';+  var ws   = new WebSocket(url);+  +  // Close WebSocket when the browser window is closed.+  $(window).unload( function () {+    ws.close();+  });++  // Send ping message in regular intervals.+  // We expect pong messages in return to keep the connection alive.+  var ping = function () {+    ws.send("ping");+    window.setTimeout(ping,2000);+  };+  +  // Start communication when the WebSocket is opened.+  ws.onopen = function (e) {+    ping();+    ws.onmessage = function (msg) {+      // Haskell.log("WebSocket message: %o",msg);+      if (msg.data !== "pong") {+        receive(JSON.parse(msg.data));+      }+    };+    ws.onclose = function (e) {+      Haskell.log("WebSocket closed: %o", e);+    };+    ws.onerror = function (e) {+      Haskell.log("WebSocket error: %o", e);+    };+  };+  +  // Send a JSON message to the server+  that.send = function (json) {+    ws.send(JSON.stringify(json));+  };+  +  return that;+};+++/* *********************************************************************+  Client-server communication+  using HTTP+  +  WARNING: The following code is untested legacy code.+  It's only there because there may be a chance we want to resurrect it.+  +********************************************************************* */++/* *********************************************************************+Threepenny.createHTTP = function (receive) {+  var that;+  var signal_count = 0;+  var sessionToken = {};+  +  window.setTimeout(function () {+    waitForEvents();+  });+    +  // Poll instruction from the server.+  var waitForEvents = function () {+    console.log("Polling… (%d signals so far)",signal_count);+    var data = { token: sessionToken };+    var cmd  = sessionToken != null? 'poll' : 'init';+    if (cmd === 'init') {+      data.info = window.location.href;+    }+    var req = $.ajax({+      dataType: 'json',+      url : cmd,+      data: data,+      success: function (events) {+        if (sessionToken == null) {+          sessionToken = req.getResponseHeader('Set-Token').match(/[0-9]+/)*1;+        }+        console.log("Running event" +(events.length>1?'s':'') +"…")+        if (events.length) {+          console.log('Event list:');+          runMultipleEvents(events);+        } else {+          runEvent(events, signalEvent, function(response){+            maybeReply(response, waitForEvents);+          });+        }+      },+      error: function(reply) {+        console.log("Error, waiting...");+        window.setTimeout(function(){+          waitForEvents();+        },5000);+      }+    });+  }++  var runMultipleEvents = function (events){+    if(events.length == 0) {+      return waitForEvents();+    }+    runEvent(events.shift(), signalEvent, function(response){+      maybeReply(response, function(){+        runMultipleEvents(events);+      });+    });+  }+  +  // Send an event to the server.+  var signalEvent = function (value) {+    signal({ Event: value}, function (){});+  }+  +  // Send a reply to the server if necessary.+  var maybeReply = function (response, continuation) {+    if (response != undefined) { signal(response, continuation); }+    else { continuation(); }+  }+  +  // Send response back to the server.+  var signal = function signal(signal,continuation) {+    signal_count++;+    console.log('Signal: %s',JSON.stringify(signal));+    $.ajax({+      dataType: 'json',+      url:'signal',+      data: { token: sessionToken, signal: JSON.stringify(signal) },+      success: function(){+        continuation();+      },+      error: function(reply){+        console.log("Error: %o",reply);+      }+    });+  }+  +  return that;+};+********************************************************************* */

@@ -0,0 +1,117 @@+/* *********************************************************************+  Foreign Function Interface (FFI)+  JavaScript <-> Haskell++  This module implements everything necessary to call JS functions+  from Haskell and vice versa.+  +    * Listen to server and call JS functions on request.+    * Present Haskell functions as objects that can be called from JS.+    * StablePtr for JS objects.++********************************************************************* */++// Connect to the Haskell server and initialize the FFI.+// An optional string argument can be used to specify the server URL.+Haskell.initFFI = function () {+  var connection;+  var url = window.location.href.toString();++  if (arguments[0]) {+    url = arguments[0]; // take server url from argument+  }++  /////////////////////////////////////////////////////////////////////+  // Listen to server and execute JS functions+  var reply = function (response) {+    if (response !== undefined) {+      connection.send(response);+    }+  };+  +  var receive = function (msg) {+    Haskell.log("Server message: %o", msg);+    +    switch (msg.tag) {+      case "RunEval" : {+          eval(msg.contents);+          reply();+          break;+      }+      case "CallEval" : {+          var result   = eval(msg.contents);+          reply({+            tag      : "Result",+            contents : result+          });+          break;+      }+      case "Debug": {+        Haskell.log("Server debug: %o", msg.contents);+        reply();+        break;+      }+    }+  };+  +  // Initialize connection to server.+  connection = Haskell.createWebSocket(url, receive);++  /////////////////////////////////////////////////////////////////////+  // Calling Haskell functions+  +  // An event is a function on the server side that can be called anytime,+  // but whose execution will be queued.+  Haskell.newEvent = function (name, args) {+    var that = function () {+      var theargs = [];+      if (args) {+        theargs = eval(args);+      } else {+        for (var i=0; i<arguments.length; i++) {+          theargs[i] = arguments[i];+        }+      }++      reply({+        tag       : "Event",+        name      : name,+        arguments : theargs+      });+      // 'args' is a string that contains the name 'arguments'+      // Evaluating it will perform appropriate marshalling.+    };+    return that;+  };  +  +  /////////////////////////////////////////////////////////////////////+  // Stable Pointers on JavaScript objects+  //+  // Warning: We assume that each object can have at most one StablePtr+  // associated to it. We have to pay attention that we don't +  // free a stable pointer twice.+  var stablePtrs = {};+  var counter    = 0;+  +  var newStablePtr = function (object) {+    if (object.stablePtr === undefined) {+      object.stablePtr = counter.toString();+      stablePtrs[object.stablePtr] = object;+      counter++;+    }+    return object.stablePtr.toString();+  };+  +  Haskell.getStablePtr = function (object) {+    return (object.stablePtr || newStablePtr(object));+  };+  +  Haskell.deRefStablePtr = function (ptr) {+    return stablePtrs[ptr];+  };+  +  Haskell.freeStablePtr = function (ptr) {+    delete stablePtrs[ptr].stablePtr;+    delete stablePtrs[ptr];+  };+};

@@ -0,0 +1,3 @@+.table { display: table; }+.table-row  { display: table-row; }+.table-cell { display: table-cell; }

@@ -0,0 +1,13 @@+<!doctype html>+<head>+  <title></title>+  <link rel="stylesheet" type="text/css" href="haskell.css"/>+  <script src="haskell.js"></script>+  <script type="text/javascript" charset="utf-8">+    Haskell.initFFI();+  </script>+</head>+<body>+  <noscript>Please enable JavaScript.</noscript>+</body>+</html>

@@ -0,0 +1,111 @@+/* *********************************************************************+  Threepenny - JavaScript library+  +  Additional JavaScript functions that are available+  for Threepenny.+********************************************************************* */+window.jquery_scrollToBottom = function(el){+  $(el).scrollTop(el.scrollHeight);+};++Haskell.map = function (fun, array) {+  var result = [];+  for (i=0; i<array.length; i++) {+    result[i] = fun(array[i]);+  }+  return result;+};++/////////////////////////////////////////////////////////////////////+// Binding to events+Haskell.bind = function (el, eventType, fun) {+  if(eventType === 'livechange') {+    $(el).livechange(300,function(e){+      fun([ $(el).val() ]);+      return true;+    });+  } else if(eventType === 'sendvalue') {+    $(el).sendvalue(function(x){+      fun(x.toString());+    });+  } else if (eventType.match('dragstart|dragenter|dragover|dragleave|drag|drop|dragend')) {+    $(el).bind(eventType, function(e) {+      fun( e.originalEvent.dataTransfer+            ? [e.originalEvent.dataTransfer.getData("dragData")]+            : [] );+    });+  } else if(eventType.match('mousemove|mousedown|mouseup')) {+    $(el).bind(eventType, function(e) {+      var offset = $(this).offset();+      var x      = e.pageX - offset.left;+      var y      = e.pageY - offset.top;+      fun([x, y]);+    });+  } else if(eventType.match('keydown|keyup')) {+    $(el).bind(eventType, function(e) {+      fun(e.keyCode);+      return true;+    });+  } else {+    $(el).bind(eventType, function(e) {+      fun(e.which ? [e.which.toString()] : []);+      return true;+    });+  }+};+++/////////////////////////////////////////////////////////////////////+// Canvas API additions.+// See http://stackoverflow.com/a/9722502/403805 .+CanvasRenderingContext2D.prototype.clear = +  CanvasRenderingContext2D.prototype.clear || function (preserveTransform) {+    if (preserveTransform) {+      this.save();+      this.setTransform(1, 0, 0, 1, 0, 0);+    }+    this.clearRect(0, 0, this.canvas.width, this.canvas.height);+    if (preserveTransform) {+      this.restore();+    }           +};+++// Sendvalue+$.fn.sendvalue = function(trigger){+  $(this).each(function(){+    var self = this;+    var el = $(self);+    el.keydown(function(e){+      if(e.which == 13) {+        trigger.call(self,el.val());+        return false;+      }+      else+        return true;+    });+  });+};++// Livechange+$.fn.livechange = function(ms,trigger){+  $(this).each(function(){+    var self = this;+    var el = $(self);+    var last_val;+    var check = function(){+      var val = el.val();+      if(val != last_val)+        trigger.call(self);+      last_val = val;+    };+    var checker;+    var restart = function(){+      clearTimeout(checker);+      checker = setInterval(check,ms);+    };+    restart();+    el.keypress(restart).change(restart);+  });+};+

@@ -0,0 +1,56 @@+/**+ * jQuery Cookie plugin+ *+ * Copyright (c) 2010 Klaus Hartl (stilbuero.de)+ * Dual licensed under the MIT and GPL licenses:+ * http://www.opensource.org/licenses/mit-license.php+ * http://www.gnu.org/licenses/gpl.html+ *+ */+(function($) {+  $.cookie = function(key, value, options) {++    // key and at least value given, set cookie...+    if (arguments.length > 1 && (!/Object/.test(Object.prototype.toString.call(value)) || value === null || value === undefined)) {+      options = $.extend({}, options);++      if (value === null || value === undefined) {+        options.expires = -1;+      }++      if (typeof options.expires === 'number') {+        var days = options.expires, t = options.expires = new Date();+        t.setDate(t.getDate() + days);+      }++      value = String(value);++      return (document.cookie = [+        encodeURIComponent(key), '=', options.raw ? value : encodeURIComponent(value),+        options.expires ? '; expires=' + options.expires.toUTCString() : '', // use expires attribute, max-age is not supported by IE+        options.path    ? '; path=' + options.path : '',+        options.domain  ? '; domain=' + options.domain : '',+        options.secure  ? '; secure' : ''+      ].join(''));+    }++    // key and possibly options given, get cookie...+    options = value || {};+    var decode = options.raw ? function(s) { return s; } : decodeURIComponent;++    var pairs = document.cookie.split('; ');+    for (var i = 0, pair; pair = pairs[i] && pairs[i].split('='); i++) {+      if (decode(pair[0]) === key) return decode(pair[1] || ''); // IE saves cookies with empty string as "c; ", e.g. without "=" as opposed to EOMB, thus pair[1] may be undefined+    }+    return null;+  };++  $.setSimpleCookie = function(name,value,f) {+    $.cookie(name,value,{+      path: '/',+      expire: 999 // TODO: +    });+    f();+  };+  +})(jQuery);

@@ -0,0 +1,4 @@+/*! jQuery v1.7.1 jquery.com | jquery.org/license */+(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cv(a){if(!ck[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cl||(cl=c.createElement("iframe"),cl.frameBorder=cl.width=cl.height=0),b.appendChild(cl);if(!cm||!cl.createElement)cm=(cl.contentWindow||cl.contentDocument).document,cm.write((c.compatMode==="CSS1Compat"?"<!doctype html>":"")+"<html><body>"),cm.close();d=cm.createElement(a),cm.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cl)}ck[a]=e}return ck[a]}function cu(a,b){var c={};f.each(cq.concat.apply([],cq.slice(0,b)),function(){c[this]=a});return c}function ct(){cr=b}function cs(){setTimeout(ct,0);return cr=f.now()}function cj(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ci(){try{return new a.XMLHttpRequest}catch(b){}}function cc(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g<i;g++){if(g===1)for(h in a.converters)typeof h=="string"&&(e[h.toLowerCase()]=a.converters[h]);l=k,k=d[g];if(k==="*")k=l;else if(l!=="*"&&l!==k){m=l+" "+k,n=e[m]||e["* "+k];if(!n){p=b;for(o in e){j=o.split(" ");if(j[0]===l||j[0]==="*"){p=e[j[1]+" "+k];if(p){o=e[o],o===!0?n=p:p===!0&&(n=o);break}}}}!n&&!p&&f.error("No conversion from "+m.replace(" "," to ")),n!==!0&&(c=n?n(c):p(o(c)))}}return c}function cb(a,c,d){var e=a.contents,f=a.dataTypes,g=a.responseFields,h,i,j,k;for(i in g)i in d&&(c[g[i]]=d[i]);while(f[0]==="*")f.shift(),h===b&&(h=a.mimeType||c.getResponseHeader("content-type"));if(h)for(i in e)if(e[i]&&e[i].test(h)){f.unshift(i);break}if(f[0]in d)j=f[0];else{for(i in d){if(!f[0]||a.converters[i+" "+f[0]]){j=i;break}k||(k=i)}j=j||k}if(j){j!==f[0]&&f.unshift(j);return d[j]}}function ca(a,b,c,d){if(f.isArray(b))f.each(b,function(b,e){c||bE.test(a)?d(a,e):ca(a+"["+(typeof e=="object"||f.isArray(e)?b:"")+"]",e,c,d)});else if(!c&&b!=null&&typeof b=="object")for(var e in b)ca(a+"["+e+"]",b[e],c,d);else d(a,b)}function b_(a,c){var d,e,g=f.ajaxSettings.flatOptions||{};for(d in c)c[d]!==b&&((g[d]?a:e||(e={}))[d]=c[d]);e&&f.extend(!0,a,e)}function b$(a,c,d,e,f,g){f=f||c.dataTypes[0],g=g||{},g[f]=!0;var h=a[f],i=0,j=h?h.length:0,k=a===bT,l;for(;i<j&&(k||!l);i++)l=h[i](c,d,e),typeof l=="string"&&(!k||g[l]?l=b:(c.dataTypes.unshift(l),l=b$(a,c,d,e,l,g)));(k||!l)&&!g["*"]&&(l=b$(a,c,d,e,"*",g));return l}function bZ(a){return function(b,c){typeof b!="string"&&(c=b,b="*");if(f.isFunction(c)){var d=b.toLowerCase().split(bP),e=0,g=d.length,h,i,j;for(;e<g;e++)h=d[e],j=/^\+/.test(h),j&&(h=h.substr(1)||"*"),i=a[h]=a[h]||[],i[j?"unshift":"push"](c)}}}function bC(a,b,c){var d=b==="width"?a.offsetWidth:a.offsetHeight,e=b==="width"?bx:by,g=0,h=e.length;if(d>0){if(c!=="border")for(;g<h;g++)c||(d-=parseFloat(f.css(a,"padding"+e[g]))||0),c==="margin"?d+=parseFloat(f.css(a,c+e[g]))||0:d-=parseFloat(f.css(a,"border"+e[g]+"Width"))||0;return d+"px"}d=bz(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0;if(c)for(;g<h;g++)d+=parseFloat(f.css(a,"padding"+e[g]))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+e[g]+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+e[g]))||0);return d+"px"}function bp(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bf,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bo(a){var b=c.createElement("div");bh.appendChild(b),b.innerHTML=a.outerHTML;return b.firstChild}function bn(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bm(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bm)}function bm(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bl(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bk(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bj(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d<e;d++)f.event.add(b,c+(i[c][d].namespace?".":"")+i[c][d].namespace,i[c][d],i[c][d].data)}h.data&&(h.data=f.extend({},h.data))}}function bi(a,b){return f.nodeName(a,"table")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function U(a){var b=V.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}function T(a,b,c){b=b||0;if(f.isFunction(b))return f.grep(a,function(a,d){var e=!!b.call(a,d,a);return e===c});if(b.nodeType)return f.grep(a,function(a,d){return a===b===c});if(typeof b=="string"){var d=f.grep(a,function(a){return a.nodeType===1});if(O.test(b))return f.filter(b,d,!c);b=f.filter(b,d)}return f.grep(a,function(a,d){return f.inArray(a,b)>=0===c})}function S(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function K(){return!0}function J(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c<d;c++)b[a[c]]=!0;return b}var c=a.document,d=a.navigator,e=a.location,f=function(){function J(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(J,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,n=/^[\],:{}\s]*$/,o=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,p=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,q=/(?:^|:|,)(?:\s*\[)+/g,r=/(webkit)[ \/]([\w.]+)/,s=/(opera)(?:.*version)?[ \/]([\w.]+)/,t=/(msie) ([\w.]+)/,u=/(mozilla)(?:.*? rv:([\w.]+))?/,v=/-([a-z]|[0-9])/ig,w=/^-ms-/,x=function(a,b){return(b+"").toUpperCase()},y=d.userAgent,z,A,B,C=Object.prototype.toString,D=Object.prototype.hasOwnProperty,E=Array.prototype.push,F=Array.prototype.slice,G=String.prototype.trim,H=Array.prototype.indexOf,I={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=m.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7.1",length:0,size:function(){return this.length},toArray:function(){return F.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?E.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),A.add(a);return this},eq:function(a){a=+a;return a===-1?this.slice(a):this.slice(a,a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(F.apply(this,arguments),"slice",F.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:E,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j<k;j++)if((a=arguments[j])!=null)for(c in a){d=i[c],f=a[c];if(i===f)continue;l&&f&&(e.isPlainObject(f)||(g=e.isArray(f)))?(g?(g=!1,h=d&&e.isArray(d)?d:[]):h=d&&e.isPlainObject(d)?d:{},i[c]=e.extend(l,h,f)):f!==b&&(i[c]=f)}return i},e.extend({noConflict:function(b){a.$===e&&(a.$=g),b&&a.jQuery===e&&(a.jQuery=f);return e},isReady:!1,readyWait:1,holdReady:function(a){a?e.readyWait++:e.ready(!0)},ready:function(a){if(a===!0&&!--e.readyWait||a!==!0&&!e.isReady){if(!c.body)return setTimeout(e.ready,1);e.isReady=!0;if(a!==!0&&--e.readyWait>0)return;A.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").off("ready")}},bindReady:function(){if(!A){A=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",B,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",B),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&J()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return!isNaN(parseFloat(a))&&isFinite(a)},type:function(a){return a==null?String(a):I[C.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!D.call(a,"constructor")&&!D.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||D.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw new Error(a)},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(n.test(b.replace(o,"@").replace(p,"]").replace(q,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(w,"ms-").replace(v,x)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g<h;)if(c.apply(a[g++],d)===!1)break}else if(i){for(f in a)if(c.call(a[f],f,a[f])===!1)break}else for(;g<h;)if(c.call(a[g],g,a[g++])===!1)break;return a},trim:G?function(a){return a==null?"":G.call(a)}:function(a){return a==null?"":(a+"").replace(k,"").replace(l,"")},makeArray:function(a,b){var c=b||[];if(a!=null){var d=e.type(a);a.length==null||d==="string"||d==="function"||d==="regexp"||e.isWindow(a)?E.call(c,a):e.merge(c,a)}return c},inArray:function(a,b,c){var d;if(b){if(H)return H.call(b,a,c);d=b.length,c=c?c<0?Math.max(0,d+c):c:0;for(;c<d;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,c){var d=a.length,e=0;if(typeof c.length=="number")for(var f=c.length;e<f;e++)a[d++]=c[e];else while(c[e]!==b)a[d++]=c[e++];a.length=d;return a},grep:function(a,b,c){var d=[],e;c=!!c;for(var f=0,g=a.length;f<g;f++)e=!!b(a[f],f),c!==e&&d.push(a[f]);return d},map:function(a,c,d){var f,g,h=[],i=0,j=a.length,k=a instanceof e||j!==b&&typeof j=="number"&&(j>0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i<j;i++)f=c(a[i],i,d),f!=null&&(h[h.length]=f);else for(g in a)f=c(a[g],g,d),f!=null&&(h[h.length]=f);return h.concat.apply([],h)},guid:1,proxy:function(a,c){if(typeof c=="string"){var d=a[c];c=a,a=d}if(!e.isFunction(a))return b;var f=F.call(arguments,2),g=function(){return a.apply(c,f.concat(F.call(arguments)))};g.guid=a.guid=a.guid||g.guid||e.guid++;return g},access:function(a,c,d,f,g,h){var i=a.length;if(typeof c=="object"){for(var j in c)e.access(a,j,c[j],f,g,d);return a}if(d!==b){f=!h&&f&&e.isFunction(d);for(var k=0;k<i;k++)g(a[k],c,f?d.call(a[k],k,g(a[k],c)):d,h);return a}return i?g(a[0],c):b},now:function(){return(new Date).getTime()},uaMatch:function(a){a=a.toLowerCase();var b=r.exec(a)||s.exec(a)||t.exec(a)||a.indexOf("compatible")<0&&u.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},sub:function(){function a(b,c){return new a.fn.init(b,c)}e.extend(!0,a,this),a.superclass=this,a.fn=a.prototype=this(),a.fn.constructor=a,a.sub=this.sub,a.fn.init=function(d,f){f&&f instanceof e&&!(f instanceof a)&&(f=a(f));return e.fn.init.call(this,d,f,b)},a.fn.init.prototype=a.fn;var b=a(c);return a},browser:{}}),e.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(a,b){I["[object "+b+"]"]=b.toLowerCase()}),z=e.uaMatch(y),z.browser&&(e.browser[z.browser]=!0,e.browser.version=z.version),e.browser.webkit&&(e.browser.safari=!0),j.test(" ")&&(k=/^[\s\xA0]+/,l=/[\s\xA0]+$/),h=e(c),c.addEventListener?B=function(){c.removeEventListener("DOMContentLoaded",B,!1),e.ready()}:c.attachEvent&&(B=function(){c.readyState==="complete"&&(c.detachEvent("onreadystatechange",B),e.ready())});return e}(),g={};f.Callbacks=function(a){a=a?g[a]||h(a):{};var c=[],d=[],e,i,j,k,l,m=function(b){var d,e,g,h,i;for(d=0,e=b.length;d<e;d++)g=b[d],h=f.type(g),h==="array"?m(g):h==="function"&&(!a.unique||!o.has(g))&&c.push(g)},n=function(b,f){f=f||[],e=!a.memory||[b,f],i=!0,l=j||0,j=0,k=c.length;for(;c&&l<k;l++)if(c[l].apply(b,f)===!1&&a.stopOnFalse){e=!0;break}i=!1,c&&(a.once?e===!0?o.disable():c=[]:d&&d.length&&(e=d.shift(),o.fireWith(e[0],e[1])))},o={add:function(){if(c){var a=c.length;m(arguments),i?k=c.length:e&&e!==!0&&(j=a,n(e[0],e[1]))}return this},remove:function(){if(c){var b=arguments,d=0,e=b.length;for(;d<e;d++)for(var f=0;f<c.length;f++)if(b[d]===c[f]){i&&f<=k&&(k--,f<=l&&l--),c.splice(f--,1);if(a.unique)break}}return this},has:function(a){if(c){var b=0,d=c.length;for(;b<d;b++)if(a===c[b])return!0}return!1},empty:function(){c=[];return this},disable:function(){c=d=e=b;return this},disabled:function(){return!c},lock:function(){d=b,(!e||e===!0)&&o.disable();return this},locked:function(){return!d},fireWith:function(b,c){d&&(i?a.once||d.push([b,c]):(!a.once||!e)&&n(b,c));return this},fire:function(){o.fireWith(this,arguments);return this},fired:function(){return!!e}};return o};var i=[].slice;f.extend({Deferred:function(a){var b=f.Callbacks("once memory"),c=f.Callbacks("once memory"),d=f.Callbacks("memory"),e="pending",g={resolve:b,reject:c,notify:d},h={done:b.add,fail:c.add,progress:d.add,state:function(){return e},isResolved:b.fired,isRejected:c.fired,then:function(a,b,c){i.done(a).fail(b).progress(c);return this},always:function(){i.done.apply(i,arguments).fail.apply(i,arguments);return this},pipe:function(a,b,c){return f.Deferred(function(d){f.each({done:[a,"resolve"],fail:[b,"reject"],progress:[c,"notify"]},function(a,b){var c=b[0],e=b[1],g;f.isFunction(c)?i[a](function(){g=c.apply(this,arguments),g&&f.isFunction(g.promise)?g.promise().then(d.resolve,d.reject,d.notify):d[e+"With"](this===i?d:this,[g])}):i[a](d[e])})}).promise()},promise:function(a){if(a==null)a=h;else for(var b in h)a[b]=h[b];return a}},i=h.promise({}),j;for(j in g)i[j]=g[j].fire,i[j+"With"]=g[j].fireWith;i.done(function(){e="resolved"},c.disable,d.lock).fail(function(){e="rejected"},b.disable,d.lock),a&&a.call(i,i);return i},when:function(a){function m(a){return function(b){e[a]=arguments.length>1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c<d;c++)b[c]&&b[c].promise&&f.isFunction(b[c].promise)?b[c].promise().then(l(c),j.reject,m(c)):--g;g||j.resolveWith(j,b)}else j!==a&&j.resolveWith(j,d?[a]:[]);return k}}),f.support=function(){var b,d,e,g,h,i,j,k,l,m,n,o,p,q=c.createElement("div"),r=c.documentElement;q.setAttribute("className","t"),q.innerHTML="   <link/><table></table><a href='/a' style='top:1px;float:left;opacity:.55;'>a</a><input type='checkbox'/>",d=q.getElementsByTagName("*"),e=q.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=q.getElementsByTagName("input")[0],b={leadingWhitespace:q.firstChild.nodeType===3,tbody:!q.getElementsByTagName("tbody").length,htmlSerialize:!!q.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:q.className!=="t",enctype:!!c.createElement("form").enctype,html5Clone:c.createElement("nav").cloneNode(!0).outerHTML!=="<:nav></:nav>",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,b.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,b.optDisabled=!h.disabled;try{delete q.test}catch(s){b.deleteExpando=!1}!q.addEventListener&&q.attachEvent&&q.fireEvent&&(q.attachEvent("onclick",function(){b.noCloneEvent=!1}),q.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),b.radioValue=i.value==="t",i.setAttribute("checked","checked"),q.appendChild(i),k=c.createDocumentFragment(),k.appendChild(q.lastChild),b.checkClone=k.cloneNode(!0).cloneNode(!0).lastChild.checked,b.appendChecked=i.checked,k.removeChild(i),k.appendChild(q),q.innerHTML="",a.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",q.style.width="2px",q.appendChild(j),b.reliableMarginRight=(parseInt((a.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(q.attachEvent)for(o in{submit:1,change:1,focusin:1})n="on"+o,p=n in q,p||(q.setAttribute(n,"return;"),p=typeof q[n]=="function"),b[o+"Bubbles"]=p;k.removeChild(q),k=g=h=j=q=i=null,f(function(){var a,d,e,g,h,i,j,k,m,n,o,r=c.getElementsByTagName("body")[0];!r||(j=1,k="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",m="visibility:hidden;border:0;",n="style='"+k+"border:5px solid #000;padding:0;'",o="<div "+n+"><div></div></div>"+"<table "+n+" cellpadding='0' cellspacing='0'>"+"<tr><td></td></tr></table>",a=c.createElement("div"),a.style.cssText=m+"width:0;height:0;position:static;top:0;margin-top:"+j+"px",r.insertBefore(a,r.firstChild),q=c.createElement("div"),a.appendChild(q),q.innerHTML="<table><tr><td style='padding:0;border:0;display:none'></td><td>t</td></tr></table>",l=q.getElementsByTagName("td"),p=l[0].offsetHeight===0,l[0].style.display="",l[1].style.display="none",b.reliableHiddenOffsets=p&&l[0].offsetHeight===0,q.innerHTML="",q.style.width=q.style.paddingLeft="1px",f.boxModel=b.boxModel=q.offsetWidth===2,typeof q.style.zoom!="undefined"&&(q.style.display="inline",q.style.zoom=1,b.inlineBlockNeedsLayout=q.offsetWidth===2,q.style.display="",q.innerHTML="<div style='width:4px;'></div>",b.shrinkWrapBlocks=q.offsetWidth!==2),q.style.cssText=k+m,q.innerHTML=o,d=q.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,i={doesNotAddBorder:e.offsetTop!==5,doesAddBorderForTableAndCells:h.offsetTop===5},e.style.position="fixed",e.style.top="20px",i.fixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",i.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,i.doesNotIncludeMarginInBodyOffset=r.offsetTop!==j,r.removeChild(a),q=a=null,f.extend(b,i))});return b}();var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[j]:a[j]&&j,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[j]=n=++f.uuid:n=j),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[h]:h;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)||(b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" ")));for(e=0,g=b.length;e<g;e++)delete d[b[e]];if(!(c?m:f.isEmptyObject)(d))return}}if(!c){delete j[k].data;if(!m(j[k]))return}f.support.deleteExpando||!j.setInterval?delete j[k]:j[k]=null,i&&(f.support.deleteExpando?delete a[h]:a.removeAttribute?a.removeAttribute(h):a[h]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d,e,g,h=null;if(typeof a=="undefined"){if(this.length){h=f.data(this[0]);if(this[0].nodeType===1&&!f._data(this[0],"parsedAttrs")){e=this[0].attributes;for(var i=0,j=e.length;i<j;i++)g=e[i].name,g.indexOf("data-")===0&&(g=f.camelCase(g.substring(5)),l(this[0],g,h[g]));f._data(this[0],"parsedAttrs",!0)}}return h}if(typeof a=="object")return this.each(function(){f.data(this,a)});d=a.split("."),d[1]=d[1]?"."+d[1]:"";if(c===b){h=this.triggerHandler("getData"+d[1]+"!",[d[0]]),h===b&&this.length&&(h=f.data(this[0],a),h=l(this[0],a,h));return h===b&&d[1]?this.data(d[0]):h}return this.each(function(){var b=f(this),e=[d[0],c];b.triggerHandler("setData"+d[1]+"!",e),f.data(this,a,c),b.triggerHandler("changeData"+d[1]+"!",e)})},removeData:function(a){return this.each(function(){f.removeData(this,a)})}}),f.extend({_mark:function(a,b){a&&(b=(b||"fx")+"mark",f._data(a,b,(f._data(a,b)||0)+1))},_unmark:function(a,b,c){a!==!0&&(c=b,b=a,a=!1);if(b){c=c||"fx";var d=c+"mark",e=a?0:(f._data(b,d)||1)-1;e?f._data(b,d,e):(f.removeData(b,d,!0),n(b,c,"mark"))}},queue:function(a,b,c){var d;if(a){b=(b||"fx")+"queue",d=f._data(a,b),c&&(!d||f.isArray(c)?d=f._data(a,b,f.makeArray(c)):d.push(c));return d||[]}},dequeue:function(a,b){b=b||"fx";var c=f.queue(a,b),d=c.shift(),e={};d==="inprogress"&&(d=c.shift()),d&&(b==="fx"&&c.unshift("inprogress"),f._data(a,b+".run",e),d.call(a,function(){f.dequeue(a,b)},e)),c.length||(f.removeData(a,b+"queue "+b+".run",!0),n(a,b,"queue"))}}),f.fn.extend({queue:function(a,c){typeof a!="string"&&(c=a,a="fx");if(c===b)return f.queue(this[0],a);return this.each(function(){var b=f.queue(this,a,c);a==="fx"&&b[0]!=="inprogress"&&f.dequeue(this,a)})},dequeue:function(a){return this.each(function(){f.dequeue(this,a)})},delay:function(a,b){a=f.fx?f.fx.speeds[a]||a:a,b=b||"fx";return this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,c){function m(){--h||d.resolveWith(e,[e])}typeof a!="string"&&(c=a,a=b),a=a||"fx";var d=f.Deferred(),e=this,g=e.length,h=1,i=a+"defer",j=a+"queue",k=a+"mark",l;while(g--)if(l=f.data(e[g],i,b,!0)||(f.data(e[g],j,b,!0)||f.data(e[g],k,b,!0))&&f.data(e[g],i,f.Callbacks("once memory"),!0))h++,l.add(m);m();return d.promise()}});var o=/[\n\t\r]/g,p=/\s+/,q=/\r/g,r=/^(?:button|input)$/i,s=/^(?:button|input|object|select|textarea)$/i,t=/^a(?:rea)?$/i,u=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,v=f.support.getSetAttribute,w,x,y;f.fn.extend({attr:function(a,b){return f.access(this,a,b,!0,f.attr)},removeAttr:function(a){return this.each(function(){f.removeAttr(this,a)})},prop:function(a,b){return f.access(this,a,b,!0,f.prop)},removeProp:function(a){a=f.propFix[a]||a;return this.each(function(){try{this[a]=b,delete this[a]}catch(c){}})},addClass:function(a){var b,c,d,e,g,h,i;if(f.isFunction(a))return this.each(function(b){f(this).addClass(a.call(this,b,this.className))});if(a&&typeof a=="string"){b=a.split(p);for(c=0,d=this.length;c<d;c++){e=this[c];if(e.nodeType===1)if(!e.className&&b.length===1)e.className=a;else{g=" "+e.className+" ";for(h=0,i=b.length;h<i;h++)~g.indexOf(" "+b[h]+" ")||(g+=b[h]+" ");e.className=f.trim(g)}}}return this},removeClass:function(a){var c,d,e,g,h,i,j;if(f.isFunction(a))return this.each(function(b){f(this).removeClass(a.call(this,b,this.className))});if(a&&typeof a=="string"||a===b){c=(a||"").split(p);for(d=0,e=this.length;d<e;d++){g=this[d];if(g.nodeType===1&&g.className)if(a){h=(" "+g.className+" ").replace(o," ");for(i=0,j=c.length;i<j;i++)h=h.replace(" "+c[i]+" "," ");g.className=f.trim(h)}else g.className=""}}return this},toggleClass:function(a,b){var c=typeof a,d=typeof b=="boolean";if(f.isFunction(a))return this.each(function(c){f(this).toggleClass(a.call(this,c,this.className,b),b)});return this.each(function(){if(c==="string"){var e,g=0,h=f(this),i=b,j=a.split(p);while(e=j[g++])i=d?i:!h.hasClass(e),h[i?"addClass":"removeClass"](e)}else if(c==="undefined"||c==="boolean")this.className&&f._data(this,"__className__",this.className),this.className=this.className||a===!1?"":f._data(this,"__className__")||""})},hasClass:function(a){var b=" "+a+" ",c=0,d=this.length;for(;c<d;c++)if(this[c].nodeType===1&&(" "+this[c].className+" ").replace(o," ").indexOf(b)>-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];{if(!!arguments.length){e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}}}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c<d;c++){e=i[c];if(e.selected&&(f.support.optDisabled?!e.disabled:e.getAttribute("disabled")===null)&&(!e.parentNode.disabled||!f.nodeName(e.parentNode,"optgroup"))){b=f(e).val();if(j)return b;h.push(b)}}if(j&&!h.length&&i.length)return f(i[g]).val();return h},set:function(a,b){var c=f.makeArray(b);f(a).find("option").each(function(){this.selected=f.inArray(f(this).val(),c)>=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!!a&&j!==3&&j!==8&&j!==2){if(e&&c in f.attrFn)return f(a)[c](d);if(typeof a.getAttribute=="undefined")return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g}},removeAttr:function(a,b){var c,d,e,g,h=0;if(b&&a.nodeType===1){d=b.toLowerCase().split(p),g=d.length;for(;h<g;h++)e=d[h],e&&(c=f.propFix[e]||e,f.attr(a,e,""),a.removeAttribute(v?e:c),u.test(e)&&c in a&&(a[c]=!1))}},attrHooks:{type:{set:function(a,b){if(r.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(w&&f.nodeName(a,"button"))return w.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(w&&f.nodeName(a,"button"))return w.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e,g,h,i=a.nodeType;if(!!a&&i!==3&&i!==8&&i!==2){h=i!==1||!f.isXMLDoc(a),h&&(c=f.propFix[c]||c,g=f.propHooks[c]);return d!==b?g&&"set"in g&&(e=g.set(a,d,c))!==b?e:a[c]=d:g&&"get"in g&&(e=g.get(a,c))!==null?e:a[c]}},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):s.test(a.nodeName)||t.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabindex=f.propHooks.tabIndex,x={get:function(a,c){var d,e=f.prop(a,c);return e===!0||typeof e!="boolean"&&(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},v||(y={name:!0,id:!0},w=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&(y[c]?d.nodeValue!=="":d.specified)?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.attrHooks.tabindex.set=w.set,f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})}),f.attrHooks.contenteditable={get:w.get,set:function(a,b,c){b===""&&(b="false"),w.set(a,b,c)}}),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.enctype||(f.propFix.enctype="encoding"),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var z=/^(?:textarea|input|select)$/i,A=/^([^\.]*)?(?:\.(.+))?$/,B=/\bhover(\.\S+)?\b/,C=/^key/,D=/^(?:mouse|contextmenu)|click/,E=/^(?:focusinfocus|focusoutblur)$/,F=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,G=function(a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3].test((c["class"]||{}).value))},I=function(a){return f.event.special.hover?a:a.replace(B,"mouseenter$1 mouseleave$1")};+f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=f.trim(I(c)).split(" ");for(k=0;k<c.length;k++){l=A.exec(c[k])||[],m=l[1],n=(l[2]||"").split(".").sort(),s=f.event.special[m]||{},m=(g?s.delegateType:s.bindType)||m,s=f.event.special[m]||{},o=f.extend({type:m,origType:l[1],data:e,handler:d,guid:d.guid,selector:g,quick:G(g),namespace:n.join(".")},p),r=j[m];if(!r){r=j[m]=[],r.delegateCount=0;if(!s.setup||s.setup.call(a,e,n,i)===!1)a.addEventListener?a.addEventListener(m,i,!1):a.attachEvent&&a.attachEvent("on"+m,i)}s.add&&(s.add.call(a,o),o.handler.guid||(o.handler.guid=d.guid)),g?r.splice(r.delegateCount++,0,o):r.push(o),f.event.global[m]=!0}a=null}},global:{},remove:function(a,b,c,d,e){var g=f.hasData(a)&&f._data(a),h,i,j,k,l,m,n,o,p,q,r,s;if(!!g&&!!(o=g.events)){b=f.trim(I(b||"")).split(" ");for(h=0;h<b.length;h++){i=A.exec(b[h])||[],j=k=i[1],l=i[2];if(!j){for(j in o)f.event.remove(a,j+b[h],c,d,!0);continue}p=f.event.special[j]||{},j=(d?p.delegateType:p.bindType)||j,r=o[j]||[],m=r.length,l=l?new RegExp("(^|\\.)"+l.split(".").sort().join("\\.(?:.*\\.)?")+"(\\.|$)"):null;for(n=0;n<r.length;n++)s=r[n],(e||k===s.origType)&&(!c||c.guid===s.guid)&&(!l||l.test(s.namespace))&&(!d||d===s.selector||d==="**"&&s.selector)&&(r.splice(n--,1),s.selector&&r.delegateCount--,p.remove&&p.remove.call(a,s));r.length===0&&m!==r.length&&((!p.teardown||p.teardown.call(a,l)===!1)&&f.removeEvent(a,j,g.handle),delete o[j])}f.isEmptyObject(o)&&(q=g.handle,q&&(q.elem=null),f.removeData(a,["events","handle"],!0))}},customEvent:{getData:!0,setData:!0,changeData:!0},trigger:function(c,d,e,g){if(!e||e.nodeType!==3&&e.nodeType!==8){var h=c.type||c,i=[],j,k,l,m,n,o,p,q,r,s;if(E.test(h+f.event.triggered))return;h.indexOf("!")>=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"";if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,m=E.test(s+h)?e:e.parentNode,n=null;for(;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l<r.length&&!c.isPropagationStopped();l++)m=r[l][0],c.type=r[l][1],q=(f._data(m,"events")||{})[c.type]&&f._data(m,"handle"),q&&q.apply(m,d),q=o&&m[o],q&&f.acceptData(m)&&q.apply(m,d)===!1&&c.preventDefault();c.type=h,!g&&!c.isDefaultPrevented()&&(!p._default||p._default.apply(e.ownerDocument,d)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)&&o&&e[h]&&(h!=="focus"&&h!=="blur"||c.target.offsetWidth!==0)&&!f.isWindow(e)&&(n=e[o],n&&(e[o]=null),f.event.triggered=h,e[h](),f.event.triggered=b,n&&(e[o]=n));return c.result}},dispatch:function(c){c=f.event.fix(c||a.event);var d=(f._data(this,"events")||{})[c.type]||[],e=d.delegateCount,g=[].slice.call(arguments,0),h=!c.exclusive&&!c.namespace,i=[],j,k,l,m,n,o,p,q,r,s,t;g[0]=c,c.delegateTarget=this;if(e&&!c.target.disabled&&(!c.button||c.type!=="click")){m=f(this),m.context=this.ownerDocument||this;for(l=c.target;l!=this;l=l.parentNode||this){o={},q=[],m[0]=l;for(j=0;j<e;j++)r=d[j],s=r.selector,o[s]===b&&(o[s]=r.quick?H(l,r.quick):m.is(s)),o[s]&&q.push(r);q.length&&i.push({elem:l,matches:q})}}d.length>e&&i.push({elem:this,matches:d.slice(e)});for(j=0;j<i.length&&!c.isPropagationStopped();j++){p=i[j],c.currentTarget=p.elem;for(k=0;k<p.matches.length&&!c.isImmediatePropagationStopped();k++){r=p.matches[k];if(h||!c.namespace&&!r.namespace||c.namespace_re&&c.namespace_re.test(r.namespace))c.data=r.data,c.handleObj=r,n=((f.event.special[r.origType]||{}).handle||r.handler).apply(p.elem,g),n!==b&&(c.result=n,n===!1&&(c.preventDefault(),c.stopPropagation()))}}return c.result},props:"attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){a.which==null&&(a.which=b.charCode!=null?b.charCode:b.keyCode);return a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,d){var e,f,g,h=d.button,i=d.fromElement;a.pageX==null&&d.clientX!=null&&(e=a.target.ownerDocument||c,f=e.documentElement,g=e.body,a.pageX=d.clientX+(f&&f.scrollLeft||g&&g.scrollLeft||0)-(f&&f.clientLeft||g&&g.clientLeft||0),a.pageY=d.clientY+(f&&f.scrollTop||g&&g.scrollTop||0)-(f&&f.clientTop||g&&g.clientTop||0)),!a.relatedTarget&&i&&(a.relatedTarget=i===a.target?d.toElement:i),!a.which&&h!==b&&(a.which=h&1?1:h&2?3:h&4?2:0);return a}},fix:function(a){if(a[f.expando])return a;var d,e,g=a,h=f.event.fixHooks[a.type]||{},i=h.props?this.props.concat(h.props):this.props;a=f.Event(g);for(d=i.length;d;)e=i[--d],a[e]=g[e];a.target||(a.target=g.srcElement||c),a.target.nodeType===3&&(a.target=a.target.parentNode),a.metaKey===b&&(a.metaKey=a.ctrlKey);return h.filter?h.filter(a,g):a},special:{ready:{setup:f.bindReady},load:{noBubble:!0},focus:{delegateType:"focusin"},blur:{delegateType:"focusout"},beforeunload:{setup:function(a,b,c){f.isWindow(this)&&(this.onbeforeunload=c)},teardown:function(a,b){this.onbeforeunload===b&&(this.onbeforeunload=null)}}},simulate:function(a,b,c,d){var e=f.extend(new f.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?f.event.trigger(e,null,b):f.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},f.event.handle=f.event.dispatch,f.removeEvent=c.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)}:function(a,b,c){a.detachEvent&&a.detachEvent("on"+b,c)},f.Event=function(a,b){if(!(this instanceof f.Event))return new f.Event(a,b);a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||a.returnValue===!1||a.getPreventDefault&&a.getPreventDefault()?K:J):this.type=a,b&&f.extend(this,b),this.timeStamp=a&&a.timeStamp||f.now(),this[f.expando]=!0},f.Event.prototype={preventDefault:function(){this.isDefaultPrevented=K;var a=this.originalEvent;!a||(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){this.isPropagationStopped=K;var a=this.originalEvent;!a||(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=K,this.stopPropagation()},isDefaultPrevented:J,isPropagationStopped:J,isImmediatePropagationStopped:J},f.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){f.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c=this,d=a.relatedTarget,e=a.handleObj,g=e.selector,h;if(!d||d!==c&&!f.contains(c,d))a.type=e.origType,h=e.handler.apply(this,arguments),a.type=b;return h}}}),f.support.submitBubbles||(f.event.special.submit={setup:function(){if(f.nodeName(this,"form"))return!1;f.event.add(this,"click._submit keypress._submit",function(a){var c=a.target,d=f.nodeName(c,"input")||f.nodeName(c,"button")?c.form:b;d&&!d._submit_attached&&(f.event.add(d,"submit._submit",function(a){this.parentNode&&!a.isTrigger&&f.event.simulate("submit",this.parentNode,a,!0)}),d._submit_attached=!0)})},teardown:function(){if(f.nodeName(this,"form"))return!1;f.event.remove(this,"._submit")}}),f.support.changeBubbles||(f.event.special.change={setup:function(){if(z.test(this.nodeName)){if(this.type==="checkbox"||this.type==="radio")f.event.add(this,"propertychange._change",function(a){a.originalEvent.propertyName==="checked"&&(this._just_changed=!0)}),f.event.add(this,"click._change",function(a){this._just_changed&&!a.isTrigger&&(this._just_changed=!1,f.event.simulate("change",this,a,!0))});return!1}f.event.add(this,"beforeactivate._change",function(a){var b=a.target;z.test(b.nodeName)&&!b._change_attached&&(f.event.add(b,"change._change",function(a){this.parentNode&&!a.isSimulated&&!a.isTrigger&&f.event.simulate("change",this.parentNode,a,!0)}),b._change_attached=!0)})},handle:function(a){var b=a.target;if(this!==b||a.isSimulated||a.isTrigger||b.type!=="radio"&&b.type!=="checkbox")return a.handleObj.handler.apply(this,arguments)},teardown:function(){f.event.remove(this,"._change");return z.test(this.nodeName)}}),f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){var d=0,e=function(a){f.event.simulate(b,a.target,f.event.fix(a),!0)};f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.fn.extend({on:function(a,c,d,e,g){var h,i;if(typeof a=="object"){typeof c!="string"&&(d=c,c=b);for(i in a)this.on(i,c,d,a[i],g);return this}d==null&&e==null?(e=c,d=c=b):e==null&&(typeof c=="string"?(e=d,d=b):(e=d,d=c,c=b));if(e===!1)e=J;else if(!e)return this;g===1&&(h=e,e=function(a){f().off(a);return h.apply(this,arguments)},e.guid=h.guid||(h.guid=f.guid++));return this.each(function(){f.event.add(this,a,e,d,c)})},one:function(a,b,c,d){return this.on.call(this,a,b,c,d,1)},off:function(a,c,d){if(a&&a.preventDefault&&a.handleObj){var e=a.handleObj;f(a.delegateTarget).off(e.namespace?e.type+"."+e.namespace:e.type,e.selector,e.handler);return this}if(typeof a=="object"){for(var g in a)this.off(g,c,a[g]);return this}if(c===!1||typeof c=="function")d=c,c=b;d===!1&&(d=J);return this.each(function(){f.event.remove(this,a,d,c)})},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},live:function(a,b,c){f(this.context).on(a,this.selector,b,c);return this},die:function(a,b){f(this.context).off(a,this.selector||"**",b);return this},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return arguments.length==1?this.off(a,"**"):this.off(b,a,c)},trigger:function(a,b){return this.each(function(){f.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0])return f.event.trigger(a,b,this[0],!0)},toggle:function(a){var b=arguments,c=a.guid||f.guid++,d=0,e=function(c){var e=(f._data(this,"lastToggle"+a.guid)||0)%d;f._data(this,"lastToggle"+a.guid,e+1),c.preventDefault();return b[e].apply(this,arguments)||!1};e.guid=c;while(d<b.length)b[d++].guid=c;return this.click(e)},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}}),f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){f.fn[b]=function(a,c){c==null&&(c=a,a=null);return arguments.length>0?this.on(b,null,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),C.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),D.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}if(j.nodeType===1){g||(j[d]=c,j.sizset=h);if(typeof b!="string"){if(j===b){k=!0;break}}else if(m.filter(b,[j]).length>0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}j.nodeType===1&&!g&&(j[d]=c,j.sizset=h);if(j.nodeName.toLowerCase()===b){k=j;break}j=j[a]}e[h]=k}}}var a=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b<a.length;b++)a[b]===a[b-1]&&a.splice(b--,1)}return a},m.matches=function(a,b){return m(a,null,null,b)},m.matchesSelector=function(a,b){return m(b,null,null,[a]).length>0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e<f;e++){h=o.order[e];if(g=o.leftMatch[h].exec(a)){i=g[1],g.splice(1,1);if(i.substr(i.length-1)!=="\\"){g[1]=(g[1]||"").replace(j,""),d=o.find[h](g,b,c);if(d!=null){a=a.replace(o.match[h],"");break}}}}d||(d=typeof b.getElementsByTagName!="undefined"?b.getElementsByTagName("*"):[]);return{set:d,expr:a}},m.filter=function(a,c,d,e){var f,g,h,i,j,k,l,n,p,q=a,r=[],s=c,t=c&&c[0]&&m.isXML(c[0]);while(a&&c.length){for(h in o.filter)if((f=o.leftMatch[h].exec(a))!=null&&f[2]){k=o.filter[h],l=f[1],g=!1,f.splice(1,1);if(l.substr(l.length-1)==="\\")continue;s===r&&(r=[]);if(o.preFilter[h]){f=o.preFilter[h](f,s,d,r,e,t);if(!f)g=i=!0;else if(f===!0)continue}if(f)for(n=0;(j=s[n])!=null;n++)j&&(i=k(j,f,n,s),p=e^i,d&&i!=null?p?g=!0:s[n]=!1:p&&(r.push(j),g=!0));if(i!==b){d||(s=r),a=a.replace(o.match[h],"");if(!g)return[];break}}if(a===q)if(g==null)m.error(a);else break;q=a}return s},m.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)};var n=m.getText=function(a){var b,c,d=a.nodeType,e="";if(d){if(d===1||d===9){if(typeof a.textContent=="string")return a.textContent;if(typeof a.innerText=="string")return a.innerText.replace(k,"");for(a=a.firstChild;a;a=a.nextSibling)e+=n(a)}else if(d===3||d===4)return a.nodeValue}else for(b=0;c=a[b];b++)c.nodeType!==8&&(e+=n(c));return e},o=m.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(a){return a.getAttribute("href")},type:function(a){return a.getAttribute("type")}},relative:{"+":function(a,b){var c=typeof b=="string",d=c&&!l.test(b),e=c&&!d;d&&(b=b.toLowerCase());for(var f=0,g=a.length,h;f<g;f++)if(h=a[f]){while((h=h.previousSibling)&&h.nodeType!==1);a[f]=e||h&&h.nodeName.toLowerCase()===b?h||!1:h===b}e&&m.filter(b,a,!0)},">":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e<f;e++){c=a[e];if(c){var g=c.parentNode;a[e]=g.nodeName.toLowerCase()===b?g:!1}}}else{for(;e<f;e++)c=a[e],c&&(a[e]=d?c.parentNode:c.parentNode===b);d&&m.filter(b,a,!0)}},"":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("parentNode",b,f,a,d,c)},"~":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("previousSibling",b,f,a,d,c)}},find:{ID:function(a,b,c){if(typeof b.getElementById!="undefined"&&!c){var d=b.getElementById(a[1]);return d&&d.parentNode?[d]:[]}},NAME:function(a,b){if(typeof b.getElementsByName!="undefined"){var c=[],d=b.getElementsByName(a[1]);for(var e=0,f=d.length;e<f;e++)d[e].getAttribute("name")===a[1]&&c.push(d[e]);return c.length===0?null:c}},TAG:function(a,b){if(typeof b.getElementsByTagName!="undefined")return b.getElementsByTagName(a[1])}},preFilter:{CLASS:function(a,b,c,d,e,f){a=" "+a[1].replace(j,"")+" ";if(f)return a;for(var g=0,h;(h=b[g])!=null;g++)h&&(e^(h.className&&(" "+h.className+" ").replace(/[\t\n\r]/g," ").indexOf(a)>=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return b<c[3]-0},gt:function(a,b,c){return b>c[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h<i;h++)if(g[h]===a)return!1;return!0}m.error(e)},CHILD:function(a,b){var c,e,f,g,h,i,j,k=b[1],l=a;switch(k){case"only":case"first":while(l=l.previousSibling)if(l.nodeType===1)return!1;if(k==="first")return!0;l=a;case"last":while(l=l.nextSibling)if(l.nodeType===1)return!1;return!0;case"nth":c=b[2],e=b[3];if(c===1&&e===0)return!0;f=b[0],g=a.parentNode;if(g&&(g[d]!==f||!a.nodeIndex)){i=0;for(l=g.firstChild;l;l=l.nextSibling)l.nodeType===1&&(l.nodeIndex=++i);g[d]=f}j=a.nodeIndex-e;return c===0?j===0:j%c===0&&j/c>=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c<e;c++)d.push(a[c]);else for(;a[c];c++)d.push(a[c]);return d}}var u,v;c.documentElement.compareDocumentPosition?u=function(a,b){if(a===b){h=!0;return 0}if(!a.compareDocumentPosition||!b.compareDocumentPosition)return a.compareDocumentPosition?-1:1;return a.compareDocumentPosition(b)&4?-1:1}:(u=function(a,b){if(a===b){h=!0;return 0}if(a.sourceIndex&&b.sourceIndex)return a.sourceIndex-b.sourceIndex;var c,d,e=[],f=[],g=a.parentNode,i=b.parentNode,j=g;if(g===i)return v(a,b);if(!g)return-1;if(!i)return 1;while(j)e.unshift(j),j=j.parentNode;j=i;while(j)f.unshift(j),j=j.parentNode;c=e.length,d=f.length;for(var k=0;k<c&&k<d;k++)if(e[k]!==f[k])return v(e[k],f[k]);return k===c?v(a,f[k],-1):v(e[k],b,1)},v=function(a,b,c){if(a===b)return c;var d=a.nextSibling;while(d){if(d===b)return-1;d=d.nextSibling}return 1}),function(){var a=c.createElement("div"),d="script"+(new Date).getTime(),e=c.documentElement;a.innerHTML="<a name='"+d+"'/>",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="<a href='#'></a>",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="<p class='TEST'></p>";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="<div class='test e'></div><div class='test'></div>";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h<i;h++)m(a,g[h],e,c);return m.filter(f,e)};m.attr=f.attr,m.selectors.attrMap={},f.find=m,f.expr=m.selectors,f.expr[":"]=f.expr.filters,f.unique=m.uniqueSort,f.text=m.getText,f.isXMLDoc=m.isXML,f.contains=m.contains}();var L=/Until$/,M=/^(?:parents|prevUntil|prevAll)/,N=/,/,O=/^.[^:#\[\.,]*$/,P=Array.prototype.slice,Q=f.expr.match.POS,R={children:!0,contents:!0,next:!0,prev:!0};f.fn.extend({find:function(a){var b=this,c,d;if(typeof a!="string")return f(a).filter(function(){for(c=0,d=b.length;c<d;c++)if(f.contains(b[c],this))return!0});var e=this.pushStack("","find",a),g,h,i;for(c=0,d=this.length;c<d;c++){g=e.length,f.find(a,this[c],e);if(c>0)for(h=g;h<e.length;h++)for(i=0;i<g;i++)if(e[i]===e[h]){e.splice(h--,1);break}}return e},has:function(a){var b=f(a);return this.filter(function(){for(var a=0,c=b.length;a<c;a++)if(f.contains(this,b[a]))return!0})},not:function(a){return this.pushStack(T(this,a,!1),"not",a)},filter:function(a){return this.pushStack(T(this,a,!0),"filter",a)},is:function(a){return!!a&&(typeof a=="string"?Q.test(a)?f(a,this.context).index(this[0])>=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d<a.length;d++)f(g).is(a[d])&&c.push({selector:a[d],elem:g,level:h});g=g.parentNode,h++}return c}var i=Q.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d<e;d++){g=this[d];while(g){if(i?i.index(g)>-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(S(c[0])||S(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c);L.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!R[a]?f.unique(e):e,(this.length>1||N.test(d))&&M.test(a)&&(e=e.reverse());return this.pushStack(e,a,P.call(arguments).join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var V="abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/<tbody/i,_=/<|&#?\w+;/,ba=/<(?:script|style)/i,bb=/<(?:script|object|embed|option|style)/i,bc=new RegExp("<(?:"+V+")","i"),bd=/checked\s*(?:[^=]|=\s*.checked.)/i,be=/\/(java|ecma)script/i,bf=/^\s*<!(?:\[CDATA\[|\-\-)/,bg={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]},bh=U(c);bg.optgroup=bg.option,bg.tbody=bg.tfoot=bg.colgroup=bg.caption=bg.thead,bg.th=bg.td,f.support.htmlSerialize||(bg._default=[1,"div<div>","</div>"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=f.isFunction(a);return this.each(function(c){f(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f.clean(arguments));return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function()+{for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!bg[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1></$2>");try{for(var c=0,d=this.length;c<d;c++)this[c].nodeType===1&&(f.cleanData(this[c].getElementsByTagName("*")),this[c].innerHTML=a)}catch(e){this.empty().append(a)}}else f.isFunction(a)?this.each(function(b){var c=f(this);c.html(a.call(this,b,c.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(f.isFunction(a))return this.each(function(b){var c=f(this),d=c.html();c.replaceWith(a.call(this,b,d))});typeof a!="string"&&(a=f(a).detach());return this.each(function(){var b=this.nextSibling,c=this.parentNode;f(this).remove(),b?f(b).before(a):f(c).append(a)})}return this.length?this.pushStack(f(f.isFunction(a)?a():a),"replaceWith",a):this},detach:function(a){return this.remove(a,!0)},domManip:function(a,c,d){var e,g,h,i,j=a[0],k=[];if(!f.support.checkClone&&arguments.length===3&&typeof j=="string"&&bd.test(j))return this.each(function(){f(this).domManip(a,c,d,!0)});if(f.isFunction(j))return this.each(function(e){var g=f(this);a[0]=j.call(this,e,c?g.html():b),g.domManip(a,c,d)});if(this[0]){i=j&&j.parentNode,f.support.parentNode&&i&&i.nodeType===11&&i.childNodes.length===this.length?e={fragment:i}:e=f.buildFragment(a,this,k),h=e.fragment,h.childNodes.length===1?g=h=h.firstChild:g=h.firstChild;if(g){c=c&&f.nodeName(g,"tr");for(var l=0,m=this.length,n=m-1;l<m;l++)d.call(c?bi(this[l],g):this[l],e.cacheable||m>1&&l<n?f.clone(h,!0,!0):h)}k.length&&f.each(k,bp)}return this}}),f.buildFragment=function(a,b,d){var e,g,h,i,j=a[0];b&&b[0]&&(i=b[0].ownerDocument||b[0]),i.createDocumentFragment||(i=c),a.length===1&&typeof j=="string"&&j.length<512&&i===c&&j.charAt(0)==="<"&&!bb.test(j)&&(f.support.checkClone||!bd.test(j))&&(f.support.html5Clone||!bc.test(j))&&(g=!0,h=f.fragments[j],h&&h!==1&&(e=h)),e||(e=i.createDocumentFragment(),f.clean(a,i,e,d)),g&&(f.fragments[j]=h?e:1);return{fragment:e,cacheable:g}},f.fragments={},f.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){f.fn[a]=function(c){var d=[],e=f(c),g=this.length===1&&this[0].parentNode;if(g&&g.nodeType===11&&g.childNodes.length===1&&e.length===1){e[b](this[0]);return this}for(var h=0,i=e.length;h<i;h++){var j=(h>0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d,e,g,h=f.support.html5Clone||!bc.test("<"+a.nodeName)?a.cloneNode(!0):bo(a);if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bk(a,h),d=bl(a),e=bl(h);for(g=0;d[g];++g)e[g]&&bk(d[g],e[g])}if(b){bj(a,h);if(c){d=bl(a),e=bl(h);for(g=0;d[g];++g)bj(d[g],e[g])}}d=e=null;return h},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1></$2>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=bg[l]||bg._default,n=m[0],o=b.createElement("div");b===c?bh.appendChild(o):U(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]==="<table>"&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i<r;i++)bn(k[i]);else bn(k);k.nodeType?h.push(k):h=f.merge(h,k)}if(d){g=function(a){return!a.type||be.test(a.type)};for(j=0;h[j];j++)if(e&&f.nodeName(h[j],"script")&&(!h[j].type||h[j].type.toLowerCase()==="text/javascript"))e.push(h[j].parentNode?h[j].parentNode.removeChild(h[j]):h[j]);else{if(h[j].nodeType===1){var s=f.grep(h[j].getElementsByTagName("script"),g);h.splice.apply(h,[j+1,0].concat(s))}d.appendChild(h[j])}}return h},cleanData:function(a){var b,c,d=f.cache,e=f.event.special,g=f.support.deleteExpando;for(var h=0,i;(i=a[h])!=null;h++){if(i.nodeName&&f.noData[i.nodeName.toLowerCase()])continue;c=i[f.expando];if(c){b=d[c];if(b&&b.events){for(var j in b.events)e[j]?f.event.remove(i,j):f.removeEvent(i,j,b.handle);b.handle&&(b.handle.elem=null)}g?delete i[f.expando]:i.removeAttribute&&i.removeAttribute(f.expando),delete d[c]}}}});var bq=/alpha\([^)]*\)/i,br=/opacity=([^)]*)/,bs=/([A-Z]|^ms)/g,bt=/^-?\d+(?:px)?$/i,bu=/^-?\d/,bv=/^([\-+])=([\-+.\de]+)/,bw={position:"absolute",visibility:"hidden",display:"block"},bx=["Left","Right"],by=["Top","Bottom"],bz,bA,bB;f.fn.css=function(a,c){if(arguments.length===2&&c===b)return this;return f.access(this,a,c,!0,function(a,c,d){return d!==b?f.style(a,c,d):f.css(a,c)})},f.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=bz(a,"opacity","opacity");return c===""?"1":c}return a.style.opacity}}},cssNumber:{fillOpacity:!0,fontWeight:!0,lineHeight:!0,opacity:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":f.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,c,d,e){if(!!a&&a.nodeType!==3&&a.nodeType!==8&&!!a.style){var g,h,i=f.camelCase(c),j=a.style,k=f.cssHooks[i];c=f.cssProps[i]||i;if(d===b){if(k&&"get"in k&&(g=k.get(a,!1,e))!==b)return g;return j[c]}h=typeof d,h==="string"&&(g=bv.exec(d))&&(d=+(g[1]+1)*+g[2]+parseFloat(f.css(a,c)),h="number");if(d==null||h==="number"&&isNaN(d))return;h==="number"&&!f.cssNumber[i]&&(d+="px");if(!k||!("set"in k)||(d=k.set(a,d))!==b)try{j[c]=d}catch(l){}}},css:function(a,c,d){var e,g;c=f.camelCase(c),g=f.cssHooks[c],c=f.cssProps[c]||c,c==="cssFloat"&&(c="float");if(g&&"get"in g&&(e=g.get(a,!0,d))!==b)return e;if(bz)return bz(a,c)},swap:function(a,b,c){var d={};for(var e in b)d[e]=a.style[e],a.style[e]=b[e];c.call(a);for(e in b)a.style[e]=d[e]}}),f.curCSS=f.css,f.each(["height","width"],function(a,b){f.cssHooks[b]={get:function(a,c,d){var e;if(c){if(a.offsetWidth!==0)return bC(a,b,d);f.swap(a,bw,function(){e=bC(a,b,d)});return e}},set:function(a,b){if(!bt.test(b))return b;b=parseFloat(b);if(b>=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return br.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bq,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bq.test(g)?g.replace(bq,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bz(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bA=function(a,b){var c,d,e;b=b.replace(bs,"-$1").toLowerCase(),(d=a.ownerDocument.defaultView)&&(e=d.getComputedStyle(a,null))&&(c=e.getPropertyValue(b),c===""&&!f.contains(a.ownerDocument.documentElement,a)&&(c=f.style(a,b)));return c}),c.documentElement.currentStyle&&(bB=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bt.test(f)&&bu.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bz=bA||bB,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bD=/%20/g,bE=/\[\]$/,bF=/\r?\n/g,bG=/#.*$/,bH=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bI=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bJ=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bK=/^(?:GET|HEAD)$/,bL=/^\/\//,bM=/\?/,bN=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,bO=/^(?:select|textarea)/i,bP=/\s+/,bQ=/([?&])_=[^&]*/,bR=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bS=f.fn.load,bT={},bU={},bV,bW,bX=["*/"]+["*"];try{bV=e.href}catch(bY){bV=c.createElement("a"),bV.href="",bV=bV.href}bW=bR.exec(bV.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bS)return bS.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("<div>").append(c.replace(bN,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bO.test(this.nodeName)||bI.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bF,"\r\n")}}):{name:b.name,value:c.replace(bF,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.on(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?b_(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),b_(a,b);return a},ajaxSettings:{url:bV,isLocal:bJ.test(bW[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bX},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bZ(bT),ajaxTransport:bZ(bU),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cb(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=cc(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bH.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bG,"").replace(bL,bW[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bP),d.crossDomain==null&&(r=bR.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bW[1]&&r[2]==bW[2]&&(r[3]||(r[1]==="http:"?80:443))==(bW[3]||(bW[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),b$(bT,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bK.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bM.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bQ,"$1_="+x);d.url=y+(y===d.url?(bM.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bX+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=b$(bU,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){if(s<2)w(-1,z);else throw z}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)ca(g,a[g],c,e);return d.join("&").replace(bD,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cd=f.now(),ce=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cd++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ce.test(b.url)||e&&ce.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ce,l),b.url===j&&(e&&(k=k.replace(ce,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cf=a.ActiveXObject?function(){for(var a in ch)ch[a](0,1)}:!1,cg=0,ch;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ci()||cj()}:ci,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cf&&delete ch[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cg,cf&&(ch||(ch={},f(a).unload(cf)),ch[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var ck={},cl,cm,cn=/^(?:toggle|show|hide)$/,co=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cp,cq=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cr;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cu("show",3),a,b,c);for(var g=0,h=this.length;g<h;g++)d=this[g],d.style&&(e=d.style.display,!f._data(d,"olddisplay")&&e==="none"&&(e=d.style.display=""),e===""&&f.css(d,"display")==="none"&&f._data(d,"olddisplay",cv(d.nodeName)));for(g=0;g<h;g++){d=this[g];if(d.style){e=d.style.display;if(e===""||e==="none")d.style.display=f._data(d,"olddisplay")||""}}return this},hide:function(a,b,c){if(a||a===0)return this.animate(cu("hide",3),a,b,c);var d,e,g=0,h=this.length;for(;g<h;g++)d=this[g],d.style&&(e=f.css(d,"display"),e!=="none"&&!f._data(d,"olddisplay")&&f._data(d,"olddisplay",e));for(g=0;g<h;g++)this[g].style&&(this[g].style.display="none");return this},_toggle:f.fn.toggle,toggle:function(a,b,c){var d=typeof a=="boolean";f.isFunction(a)&&f.isFunction(b)?this._toggle.apply(this,arguments):a==null||d?this.each(function(){var b=d?a:f(this).is(":hidden");f(this)[b?"show":"hide"]()}):this.animate(cu("toggle",3),a,b,c);return this},fadeTo:function(a,b,c,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){function g(){e.queue===!1&&f._mark(this);var b=f.extend({},e),c=this.nodeType===1,d=c&&f(this).is(":hidden"),g,h,i,j,k,l,m,n,o;b.animatedProperties={};for(i in a){g=f.camelCase(i),i!==g&&(a[g]=a[i],delete a[i]),h=a[g],f.isArray(h)?(b.animatedProperties[g]=h[1],h=a[g]=h[0]):b.animatedProperties[g]=b.specialEasing&&b.specialEasing[g]||b.easing||"swing";if(h==="hide"&&d||h==="show"&&!d)return b.complete.call(this);c&&(g==="height"||g==="width")&&(b.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY],f.css(this,"display")==="inline"&&f.css(this,"float")==="none"&&(!f.support.inlineBlockNeedsLayout||cv(this.nodeName)==="inline"?this.style.display="inline-block":this.style.zoom=1))}b.overflow!=null&&(this.style.overflow="hidden");for(i in a)j=new f.fx(this,b,i),h=a[i],cn.test(h)?(o=f._data(this,"toggle"+i)||(h==="toggle"?d?"show":"hide":0),o?(f._data(this,"toggle"+i,o==="show"?"hide":"show"),j[o]()):j[h]()):(k=co.exec(h),l=j.cur(),k?(m=parseFloat(k[2]),n=k[3]||(f.cssNumber[i]?"":"px"),n!=="px"&&(f.style(this,i,(m||1)+n),l=(m||1)/j.cur()*l,f.style(this,i,l+n)),k[1]&&(m=(k[1]==="-="?-1:1)*m+l),j.custom(l,m,n)):j.custom(l,h,""));return!0}var e=f.speed(b,c,d);if(f.isEmptyObject(a))return this.each(e.complete,[!1]);a=f.extend({},a);return e.queue===!1?this.each(g):this.queue(e.queue,g)},stop:function(a,c,d){typeof a!="string"&&(d=c,c=a,a=b),c&&a!==!1&&this.queue(a||"fx",[]);return this.each(function(){function h(a,b,c){var e=b[c];f.removeData(a,c,!0),e.stop(d)}var b,c=!1,e=f.timers,g=f._data(this);d||f._unmark(!0,this);if(a==null)for(b in g)g[b]&&g[b].stop&&b.indexOf(".run")===b.length-4&&h(this,g,b);else g[b=a+".run"]&&g[b].stop&&h(this,g,b);for(b=e.length;b--;)e[b].elem===this&&(a==null||e[b].queue===a)&&(d?e[b](!0):e[b].saveState(),c=!0,e.splice(b,1));(!d||!c)&&f.dequeue(this,a)})}}),f.each({slideDown:cu("show",1),slideUp:cu("hide",1),slideToggle:cu("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){f.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),f.extend({speed:function(a,b,c){var d=a&&typeof a=="object"?f.extend({},a):{complete:c||!c&&b||f.isFunction(a)&&a,duration:a,easing:c&&b||b&&!f.isFunction(b)&&b};d.duration=f.fx.off?0:typeof d.duration=="number"?d.duration:d.duration in f.fx.speeds?f.fx.speeds[d.duration]:f.fx.speeds._default;if(d.queue==null||d.queue===!0)d.queue="fx";d.old=d.complete,d.complete=function(a){f.isFunction(d.old)&&d.old.call(this),d.queue?f.dequeue(this,d.queue):a!==!1&&f._unmark(this)};return d},easing:{linear:function(a,b,c,d){return c+d*a},swing:function(a,b,c,d){return(-Math.cos(a*Math.PI)/2+.5)*d+c}},timers:[],fx:function(a,b,c){this.options=b,this.elem=a,this.prop=c,b.orig=b.orig||{}}}),f.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this),(f.fx.step[this.prop]||f.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a,b=f.css(this.elem,this.prop);return isNaN(a=parseFloat(b))?!b||b==="auto"?0:b:a},custom:function(a,c,d){function h(a){return e.step(a)}var e=this,g=f.fx;this.startTime=cr||cs(),this.end=c,this.now=this.start=a,this.pos=this.state=0,this.unit=d||this.unit||(f.cssNumber[this.prop]?"":"px"),h.queue=this.options.queue,h.elem=this.elem,h.saveState=function(){e.options.hide&&f._data(e.elem,"fxshow"+e.prop)===b&&f._data(e.elem,"fxshow"+e.prop,e.start)},h()&&f.timers.push(h)&&!cp&&(cp=setInterval(g.tick,g.interval))},show:function(){var a=f._data(this.elem,"fxshow"+this.prop);this.options.orig[this.prop]=a||f.style(this.elem,this.prop),this.options.show=!0,a!==b?this.custom(this.cur(),a):this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur()),f(this.elem).show()},hide:function(){this.options.orig[this.prop]=f._data(this.elem,"fxshow"+this.prop)||f.style(this.elem,this.prop),this.options.hide=!0,this.custom(this.cur(),0)},step:function(a){var b,c,d,e=cr||cs(),g=!0,h=this.elem,i=this.options;if(a||e>=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c<b.length;c++)a=b[c],!a()&&b[c]===a&&b.splice(c--,1);b.length||f.fx.stop()},interval:13,stop:function(){clearInterval(cp),cp=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){f.style(a.elem,"opacity",a.now)},_default:function(a){a.elem.style&&a.elem.style[a.prop]!=null?a.elem.style[a.prop]=a.now+a.unit:a.elem[a.prop]=a.now}}}),f.each(["width","height"],function(a,b){f.fx.step[b]=function(a){f.style(a.elem,b,Math.max(0,a.now)+a.unit)}}),f.expr&&f.expr.filters&&(f.expr.filters.animated=function(a){return f.grep(f.timers,function(b){return a===b.elem}).length});var cw=/^t(?:able|d|h)$/i,cx=/^(?:body|html)$/i;"getBoundingClientRect"in c.documentElement?f.fn.offset=function(a){var b=this[0],c;if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);try{c=b.getBoundingClientRect()}catch(d){}var e=b.ownerDocument,g=e.documentElement;if(!c||!f.contains(g,b))return c?{top:c.top,left:c.left}:{top:0,left:0};var h=e.body,i=cy(e),j=g.clientTop||h.clientTop||0,k=g.clientLeft||h.clientLeft||0,l=i.pageYOffset||f.support.boxModel&&g.scrollTop||h.scrollTop,m=i.pageXOffset||f.support.boxModel&&g.scrollLeft||h.scrollLeft,n=c.top+l-j,o=c.left+m-k;return{top:n,left:o}}:f.fn.offset=function(a){var b=this[0];if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);var c,d=b.offsetParent,e=b,g=b.ownerDocument,h=g.documentElement,i=g.body,j=g.defaultView,k=j?j.getComputedStyle(b,null):b.currentStyle,l=b.offsetTop,m=b.offsetLeft;while((b=b.parentNode)&&b!==i&&b!==h){if(f.support.fixedPosition&&k.position==="fixed")break;c=j?j.getComputedStyle(b,null):b.currentStyle,l-=b.scrollTop,m-=b.scrollLeft,b===d&&(l+=b.offsetTop,m+=b.offsetLeft,f.support.doesNotAddBorder&&(!f.support.doesAddBorderForTableAndCells||!cw.test(b.nodeName))&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),e=d,d=b.offsetParent),f.support.subtractsBorderForOverflowNotVisible&&c.overflow!=="visible"&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),k=c}if(k.position==="relative"||k.position==="static")l+=i.offsetTop,m+=i.offsetLeft;f.support.fixedPosition&&k.position==="fixed"&&(l+=Math.max(h.scrollTop,i.scrollTop),m+=Math.max(h.scrollLeft,i.scrollLeft));return{top:l,left:m}},f.offset={bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.support.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cx.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cx.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cy(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cy(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f,typeof define=="function"&&define.amd&&define.amd.jQuery&&define("jquery",[],function(){return f})})(window);

@@ -0,0 +1,12 @@+/* *********************************************************************+  Logging utilities+********************************************************************* */+Haskell.log = function () {+  if ($.cookie('Haskell.log.enabled') === "true") {+    window.console.log.apply(window.console, arguments);+  }+};++Haskell.log.enable = function (bool) {+  $.cookie('Haskell.log.enabled', bool.toString());+};

@@ -27,7 +27,7 @@     -- functionality     let         displayTotal = void $ do-            xs <- getValuesList =<< liftIO (readIORef inputs)+            xs <- mapM (get value) =<< liftIO (readIORef inputs)             element elResult # set text (showNumber . sum $ map readNumber xs)                  redoLayout :: UI ()

@@ -13,7 +13,7 @@ main :: IO () main = do     static <- getStaticDir-    startGUI defaultConfig { tpStatic = Just static } setup+    startGUI defaultConfig { jsStatic = Just static } setup  setup :: Window -> UI () setup w = void $ do

@@ -0,0 +1,104 @@+import Control.Monad++import Paths++import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core+++{-----------------------------------------------------------------------------+    Main+------------------------------------------------------------------------------}+main :: IO ()+main = do+    static <- getStaticDir+    startGUI defaultConfig { jsStatic = Just static } setup++canvasSize = 400++setup :: Window -> UI ()+setup window = do+    return window # set title "Canvas - Examples"++    canvas <- UI.canvas+        # set UI.height canvasSize+        # set UI.width  canvasSize+        # set style [("border", "solid black 1px"), ("background", "#eee")]++    drawRects <- UI.button #+ [string "Add some rectangles."]+    drawText  <- UI.button #+ [string "Add text."]+    drawImage <- UI.button #+ [string "Add image."]+    drawPie   <- UI.button #+ [string "Must have pie!"]+    clear     <- UI.button #+ [string "Clear the canvas."]++    getBody window #++        [ column [element canvas]+        , element drawRects, element drawText, element drawImage+        , element drawPie  , element clear+        ]++    on UI.click clear $ const $+        canvas # UI.clearCanvas++    -- draw a pie chart+    on UI.click drawPie $ const $ do+        let+            center = (fromIntegral canvasSize / 2, fromIntegral (canvasSize+30) / 2)+            radius = 100++            drawSlice start end color = do+                canvas # set' UI.fillStyle (UI.htmlColor color)+                canvas # set' UI.strokeStyle "white"+                canvas # UI.beginPath+                canvas # UI.arc center radius start end+                canvas # UI.lineTo center+                canvas # UI.closePath+                canvas # UI.fill+                canvas # UI.stroke++            radian angle = angle * pi / 180++            normalizeAngles xs = map (\(x,y) -> (360 * x/total,y)) xs+                where total = sum $ map fst xs++            pieData = normalizeAngles+                [ (100, "#1f77b4")+                , (45, "#ff7f0e")+                , (80, "#2ca02c")+                , (10, "#d62728")+                , (105,"#9467bd")+                , (20, "#8c564b")+                ]++        foldM (\start (delta, col) -> do+            let end = start+delta+            drawSlice (radian start) (radian end) col+            return end) 0 pieData++    -- draw some rectangles+    on UI.click drawRects $ const $ do+        let rects = [ (20 , 130, 15, 120, "teal")+                    , (345, 110, 15, 90, "lightblue")+                    , (220, 360, 95, 15, "teal")+                    ]++        forM_ rects $ \(x,y,w,h,color) -> do+            canvas # set' UI.fillStyle (UI.htmlColor color)+            canvas # UI.fillRect (x,y) w h++    -- draw some text+    on UI.click drawText $ const $ do+        return canvas+            # set UI.textFont    "30px sans-serif"+            # set UI.strokeStyle "gray"+            # set UI.fillStyle   (UI.htmlColor "black")++        canvas # UI.strokeText "is awesome" (141,61)+        canvas # UI.fillText   "is awesome" (140,60)++    -- draw the haskell logo+    img <- UI.img # set UI.src "static/haskell-logo.png"++    on UI.click drawImage $ const $ do+        canvas # UI.drawImage img (60,20)+

@@ -22,8 +22,8 @@     static   <- getStaticDir     messages <- Chan.newChan     startGUI defaultConfig-        { tpCustomHTML = Just "chat.html"-        , tpStatic     = Just static+        { jsCustomHTML = Just "chat.html"+        , jsStatic     = Just static         } $ setup messages  type Message = (UTCTime, String, String)@@ -57,8 +57,7 @@ receiveMessages w msgs messageArea = do     messages <- Chan.getChanContents msgs     forM_ messages $ \msg -> do-        atomic w $ runUI w $ do-          -- FIXME: withWindow  should include a call to  atomic ?+        runUI w $ do           element messageArea #+ [mkMessage msg]           UI.scrollToBottom messageArea 

@@ -14,7 +14,7 @@ main :: IO () main = do     static <- getStaticDir-    startGUI defaultConfig { tpStatic = Just static } setup+    startGUI defaultConfig { jsStatic = Just static } setup  setup :: Window -> UI () setup w = void $ do

@@ -22,15 +22,15 @@  instruments = words "kick snare hihat" -loadInstrumentSample name = do-    static <- liftIO $ getStaticDir-    loadFile "audio/wav" (static </> name <.> "wav")+loadInstrumentSample name = return $ "static/" ++ name ++ ".wav"  {-----------------------------------------------------------------------------     Main ------------------------------------------------------------------------------} main :: IO ()-main = startGUI defaultConfig setup+main = do+    static <- getStaticDir+    startGUI defaultConfig { jsStatic = Just static } setup  setup :: Window -> UI () setup w = void $ do@@ -81,8 +81,9 @@     let play box = do             checked <- get UI.checked box             when checked $ do-                audioStop elAudio -- just in case the sound is already playing-                audioPlay elAudio+                runFunction $ ffi "%1.pause()" elAudio+                runFunction $ ffi "%1.currentTime = 0" elAudio +                runFunction $ ffi "%1.play()" elAudio         beats    = map play . concat $ elCheckboxes         elGroups = [UI.span #. "bar" #+ map element bar | bar <- elCheckboxes]     

@@ -1,131 +0,0 @@-import Control.Monad-import Safe--import Paths--import qualified Graphics.UI.Threepenny as UI-import Graphics.UI.Threepenny.Core--{------------------------------------------------------------------------------    Missing Dollars-------------------------------------------------------------------------------}-main :: IO ()-main = do-    static <- getStaticDir-    startGUI defaultConfig { tpStatic = Just static } setup---setup :: Window -> UI ()-setup w = void $ do-    return w # set title "Missing Dollars"-    UI.addStyleSheet w "missing-dollars.css"-    -    (headerView,headerMe) <- mkHeader-    riddle                <- mkMissingDollarRiddle headerMe-    let layout = [element headerView] ++ riddle ++ attributionSource        -    getBody w #+ [UI.div #. "wrap" #+ layout]---mkHeader :: UI (Element, Element)-mkHeader = do-    headerMe <- string "..."-    view     <- UI.h1   #+ [string "The ", element headerMe, string " Dollars"]-    return (view, headerMe)--attributionSource :: [UI Element]-attributionSource =-    [ UI.p #+-        [ UI.anchor #. "view-source" # set UI.href urlSource-            #+ [string "View source code"]-        ]-    , UI.p #+-        [ string "Originally by "-        , UI.anchor # set UI.href urlAttribution #+ [string "Albert Lai"]-        ]-    ]-  where-    urlSource      = samplesURL ++ "MissingDollars.hs"-    urlAttribution = "http://www.vex.net/~trebla/humour/missing_dollar.html"---mkMissingDollarRiddle :: Element -> UI [UI Element]-mkMissingDollarRiddle headerMe = do-    -- declare input and display values-    (hotelOut : hotelCost : hotelHold : _)-        <- sequence . replicate 3 $-            UI.input # set (attr "size") "3" # set (attr "type") "text"--    (hotelChange : hotelRet     : hotelBal : hotelPocket :-     hotelBal2   : hotelPocket2 : hotelSum : hotelMe     : _)-        <- sequence . replicate 8 $ UI.span-    -    -- update procedure-    let updateDisplay out cost hold = do-        let change = out - cost-            ret    = change - hold-            bal    = out - ret-            sum    = bal + hold-            diff   = sum - out-        element hotelOut     # set value (show out)-        element hotelCost    # set value (show cost)-        element hotelHold    # set value (show hold)-        element hotelChange  # set text  (show change)-        element hotelRet     # set text  (show ret)-        element hotelBal     # set text  (show bal)-        element hotelPocket  # set text  (show hold)-        element hotelBal2    # set text  (show bal)-        element hotelPocket2 # set text  (show hold)-        element hotelSum     # set text  (show sum)-        -        if diff >= 0-           then do element hotelMe  # set text ("extra $" ++ show diff ++ " come from")-                   element headerMe # set text "Extra"-           else do element hotelMe  # set text ("missing $" ++ show (-diff) ++ " go")-                   element headerMe # set text "Missing"-        return ()-    -    -- initialize values-    updateDisplay 30 25 2-    -    -- calculate button-    calculate <- UI.button #+ [string "Calculate"]-    on UI.click calculate $ \_ -> do-        result <- mapM readMay `liftM` getValuesList [hotelOut,hotelCost,hotelHold]-        case result of-            Just [getout,getcost,gethold] -> updateDisplay getout getcost gethold-            _ -> return ()-    -    return $-        [ UI.h2 #+ [string "The Guests, The Bellhop, And The Pizza"]-        , UI.p  #+-            [ string "Three guests went to a hotel and gave $"-            , element hotelOut-            , string " to the bellhop to buy pizza. The pizza cost only $"-            , element hotelCost-            , string ". Of the $"-            , element hotelChange-            , string " change, the bellhop kept $"-            , element hotelHold-            , string " to himself and returned $"-            , element hotelRet-            , string " to the guests."-            ]-        , UI.p  #+-            [ string "So the guests spent $"-            , element hotelBal-            , string ", and the bellhop pocketed $"-            , element hotelPocket-            , string ". Now "-            , string "$"-            , element hotelBal2-            , string "+$"-            , element hotelPocket2-            , string "=$"-            , element hotelSum-            , string ". Where did the "-            , element hotelMe-            , string "?"-            ]-        , element calculate-        ]    -

@@ -9,18 +9,18 @@ import qualified Paths_threepenny_gui (getDataDir)  getStaticDir :: IO FilePath-getStaticDir = (</> "wwwroot") `liftM` Paths_threepenny_gui.getDataDir+getStaticDir = (</> "samples/static") `liftM` Paths_threepenny_gui.getDataDir  #elif defined(FPCOMPLETE)  getStaticDir :: IO FilePath-getStaticDir = return "wwwroot"+getStaticDir = return "samples/static"  #else -- using GHCi  getStaticDir :: IO FilePath-getStaticDir = return "../wwwroot/"+getStaticDir = return "static"  #endif 

@@ -1,28 +1,29 @@ ## Examples -This folder contains the code examples for the Threepenny-GUI library.+This folder contains the code examples for the Threepenny GUI library. -Run run the examples, use the provided `runhaskell` and `ghci` scripts:+To run the examples, you can (but don't have to) use the provided `runhaskell` and `ghci` scripts:      cd samples     ./runhaskell Chat.hs -The scripts take care of setting up the necessary paths. However, they assume that you have set up a *[cabal sandbox][] in the project root folder*.+(The scripts check whether there is a [cabal sandbox][] in the parent directory and uses this instead of the global package database; this is very useful for me as a library author) +After you have started an example in this way, open your web browser and point it to the address [http://localhost:8023](http://localhost:8023). Enjoy!+   [cabal sandbox]: http://coldwa.st/e/blog/2013-08-20-Cabal-sandbox.html  Here a description of the currently maintained examples. The others are probably experimental or bitrotted.  * [BarTab.hs](BarTab.hs) — Dynamic creation of widgets. * [Buttons.hs](Buttons.hs) — Simple buttons to click on.+* [Canvas.hs](Canvas.hs) — Graphics using the HTML 5 canvas element. * [Chat.hs](Chat.hs) — Multi-user chat. * [CRUD.hs](CRUD.hs) — A CRUD example showcasing functional reactice programming (FRP). * [CurrencyConverter.hs](CurrencyConverter.hs) — Simple demonstration of two reactive input elements. * [DragNDropExample.hs](DragNDropExample.hs) — Simple drag'N'drop demo. * [DrumMachine.hs](DrumMachine.hs) — Specify rhythm by activating and deactivating checkboxes. * [FadeInFadeOut.hs](FadeInFadeOut.hs) — Calling Haskell functions from the browser.-* [MissingDollars.hs](MissingDollars.hs) — Text with configurable values.+* [GetElementsBy.hs](GetElementsBy.hs) — Get elements by tag name or ID. * [Mouse.hs](Mouse.hs) — Test of the `mousemove` event.-* [Pie.hs](Pie.hs) — Draws a pie chart using the HTML 5 canvas element. * [Svg.hs](Svg.hs) — Test of the SVG elements.-* [UseWords.hs](UseWords.hs)  — Text with configurable words. (Apologies for the male-centric story.)

@@ -1,98 +0,0 @@-{-# LANGUAGE ViewPatterns #-}--import Control.Applicative hiding ((<|>),many)-import Control.Monad-import Control.Arrow (second)-import Data.Maybe-import Text.Parsec-import System.FilePath ((</>))--import qualified Graphics.UI.Threepenny as UI-import Graphics.UI.Threepenny.Core hiding (string, (<|>), many)-import Paths--{------------------------------------------------------------------------------    GUI-------------------------------------------------------------------------------}-main :: IO ()-main = do-    static <- getStaticDir-    startGUI defaultConfig { tpStatic = Just static } setup---setup :: Window -> UI ()-setup w = do-    filename <- liftIO $ fmap (</> "and-then-haskell.txt") getStaticDir -    andthen  <- liftIO $ readFile filename-    case parts filename andthen of-        Left parseerror -> debug $ show parseerror-        Right parts     -> void $ do-            UI.addStyleSheet w "use-words.css"--            let (header, Prelude.drop 2 -> rest) = splitAt 3 parts            -            -            (views1, vars1) <- renderParts header-            (views2, vars2) <- renderParts rest-            varChoices      <- mapM (renderVarChoice (vars1 ++ vars2)) vars-        -            getBody w #+-                [ viewSource-                , UI.div #. "wrap" #+ (-                    [ UI.div #. "header" #+ map element views1-                    , UI.ul  #. "vars"   #+ map element varChoices-                    ]-                    ++ map element views2 )-                ]-            -type VariableViews = [(Name, Element)]--renderVarChoice :: VariableViews -> Variable -> UI Element-renderVarChoice views (label,(name,def)) = do-    input <- UI.input #. "var-value" # set value def-    -    on (domEvent "livechange") input $ \(EventData xs) -> do-        let s = concat $ catMaybes xs-        forM_ (filter ((==name).fst) views) $ \(_,el) -> do-            element el # set text s-    -    UI.li #+ [UI.string (label ++ ":"), element input]--renderParts :: [Part] -> UI ([Element], VariableViews)-renderParts parts = do-    views <- mapM renderPart parts-    let variables = [(var, view) | (Ref var, view) <- zip parts views]-    return (views, variables)--renderPart :: Part -> UI Element-renderPart (Text str) = UI.div #. "text" #+ [UI.string str]-renderPart (Ref  var) = UI.div #. "var"-    # maybe (set text $ "{" ++ var ++ "}") (either (set html) (set text))-            (lookup var templatevars)--viewSource :: UI Element-viewSource = UI.p #+-    [UI.anchor #. "view-source" # set UI.href url #+ [UI.string "View source code"]]-    where-    url = samplesURL ++ "UseWords.hs"--{------------------------------------------------------------------------------    Parsing-------------------------------------------------------------------------------}-type Name     = String-type Variable = (String, (Name, String))--templatevars = map (second Right . snd) vars ++ map (second Left) exts--vars :: [Variable]-vars = [("Favourite technology",("favourite-language","Haskell"))-       ,("Technology used at work",("work-language","Python"))-       ,("Cool forum",("bar","LtU"))-       ,("Particular to technology",("particular-stuff","monads"))]-exts = [("br","<br><br>")]--data Part = Text String | Ref String deriving Show--parts :: SourceName -> String -> Either ParseError [Part]-parts = parse (many (ref <|> text)) where-    text = Text <$> many1 (notFollowedBy (string "{") *> anyChar)-    ref  = Ref  <$> (string "{" *> many1 (noneOf "}") <* (string "}"))

@@ -0,0 +1,16 @@+<!doctype html>+<head>+  <title>Chat</title>+  <link rel="stylesheet" type="text/css" href="static/css/chat.css"/>+  <link href='http://fonts.googleapis.com/css?family=Fredericka+the+Great'+  rel='stylesheet' type='text/css'>+  <link href='http://fonts.googleapis.com/css?family=Annie+Use+Your+Telescope' rel='stylesheet' type='text/css'>+  <script src="haskell.js"></script>+  <script type="text/javascript" charset="utf-8">+    Haskell.initFFI();+  </script>+</head>+<body>+  <noscript>Please enable JavaScript.</noscript>+</body>+</html>

@@ -0,0 +1,18 @@+.box-drag {+    position: absolute;+    top   : 20px;+    border: 1px solid gray;+    width : 90px;+    height: 2ex;+    text-align: center;+    padding: 1ex;+}++.box-drop {+    position: absolute;+    top   : 100px;+    width : 100px;+    height: 2.2ex;+    text-align: center;+    padding: 1ex;+}

@@ -0,0 +1,52 @@+body {+  background: #333;+  color: #ccc;+  font-family: ubuntu, sans-serif;+  font-size: 14px;+  background: url(stripes-bg.png);+  padding-top: 1em;+  text-shadow: #000 3px 1px 3px;+}+.wrap {+  width: 40em;+  margin: auto;+}+.buttons-list {+  color: #aaa;+}+.button {+  cursor: pointer;+  color: #acc2a1;+  text-decoration: underline;+}+a {+  color: #acc2a1;+}+button, input {+  border: 0;+  color: #ccc;+  padding: 0.3em;+  border-radius:0.3em;+  box-shadow: #191919 2px 1px 2px;+}+input {+  background: #292929;+  width: 2em;+}+button:focus,input:focus {+  background: #222;+}+button {+  background: #444;+}+h1 {+  font-size: 4em;+  margin: 0;+  padding-bottom: 0.2em;+}+h2 {+  margin-top: 1.3em;+  padding-bottom: 0em;+  margin-bottom:0;+}+.view-source { float: right }

@@ -0,0 +1,106 @@+body {+  background: #333;+  color: #ccc;+  font-family: 'Annie Use Your Telescope';+  font-size: 26px;+  text-shadow: #000 3px 1px 3px;+  padding:0;+  margin:0;+  background: url(wood-bg.png) #333;+}+.header {+  font-family: 'Fredericka the Great', cursive;+  font-size: 50px;+  color: #ad1c43;+  float: left;+  padding: 10px 20px;+  position:absolute;+  z-index:2;+}+.message-area {+  clear:both;+  padding: 20px;+  color: #fff;+  position: absolute;+  top: 1em;+  right:0;+  left:0;+  bottom:10%;+  overflow: auto;+}+.gradient {+  background: url(fade.png) repeat-x;+  position:absolute;+  top:0;+  height: 150px;+  left:0;+  right:0;+  z-index:1;+}+.send-area {+  z-index:0;+  position:fixed;+  top:90%;+  left:0;+  right:0;+  bottom:0;+  background:#fff;+}+.send-textarea {+  padding: 0.25em;+  border:0;+  position: absolute;+  left:0;+  width:100%;+  bottom:0;+  top:-1px;+  font-family: 'Annie Use Your Telescope';+  font-size: 25px;+  background: #111;+  color: #999;+}+.message {+  margin-top: 1em;+  border-top: 0.1em dotted #333;+}+.message .timestamp {+  color: #888;+  font-size: 15px;+  display: inline;+  float: right;+}+.message .name {+  display: inline-block;+  font-size: 18px;+  font-style: italic;+  float:left;+}+.message .content {+  display:block;+  clear:both;+}+.name-area {+  position: absolute;+  top: 20px;+  right: 20px;+  z-index: 3;+}+.name-input {+  background: #111;+  border: 0;+  border-radius: 0.3em;+  font-family: 'Annie Use Your Telescope';+  color: #777;+  font-size: 20px;+  padding-left: 0.2em;+}+.name-input:focus,.send-textarea:focus {+  background: #333;+}+.view-source {+  position: absolute;+  z-index: 4;+  right: 20px;+  color: #555;+  top: 100px;+}

binary file changed (absent → 4690 bytes)

binary file changed (absent → 162 bytes)

binary file changed (absent → 628939 bytes)

binary file changed (absent → 4094 bytes)

binary file changed (absent → 28556 bytes)

binary file changed (absent → 31622 bytes)

binary file changed (absent → 76332 bytes)

@@ -1,22 +0,0 @@--- | Extra utilities for chans.--module Control.Concurrent.Chan.Extra-  (readAvailableChan)-  where--import Control.Concurrent.Chan--readAvailableChan :: Chan a -> IO [a]-readAvailableChan chan = do-  v <- readChan chan-  vs <- rest-  return (v:vs)--  where-    rest = do-      empty <- isEmptyChan chan-      if empty-         then return []-         else do v <- readChan chan-                 vs <- rest-                 return (v:vs)

@@ -1,17 +0,0 @@--- | Delay a thread for n seconds or minutes.--module Control.Concurrent.Delay-  (delaySeconds-  ,delayMinutes)-  where--import Control.Concurrent---- | Delay the current thread for at least n seconds.-delaySeconds :: Integer -> IO ()-delaySeconds 0 = return ()-delaySeconds n = do threadDelay (1000 * 1000); delaySeconds (n-1)---- | Delay the current thread for at least n minutes.-delayMinutes :: Integer -> IO ()-delayMinutes = delaySeconds . (*60)

@@ -1,181 +0,0 @@-{-# LANGUAGE RecordWildCards, CPP #-}-{-# LANGUAGE MagicHash, UnboxedTuples #-}-module Foreign.Coupon (-    -- * Synopsis-    -- | References to remote objects.-    -- Offers unique tokens ('Coupon') for communication.-    -- Supports garbage collection and finalizers.-    -    -- * Documentation-    Coupon,-    PrizeBooth, newPrizeBooth, lookup,-    -    Item, newItem, withItem,-    addFinalizer, destroy, addReachable, clearReachable,-    ) where--import Prelude hiding (lookup)-import Control.Concurrent-import Control.Monad-import Control.Exception (evaluate)--import qualified Data.ByteString.Char8 as BS-import Data.Functor-import Data.IORef-import qualified Data.Map as Map--import System.Mem.Weak hiding (addFinalizer)-import qualified System.Mem.Weak as Weak--import qualified GHC.Base  as GHC-import qualified GHC.Weak  as GHC-import qualified GHC.IORef as GHC-import qualified GHC.STRef as GHC--mkWeakIORefValue :: IORef a -> value -> IO () -> IO (Weak value)-mkWeakIORefValue r@(GHC.IORef (GHC.STRef r#)) v f = GHC.IO $ \s ->-  case GHC.mkWeak# r# v f s of (# s1, w #) -> (# s1, GHC.Weak w #)--#if defined(CABAL) || defined(FPCOMPLETE)-#if MIN_VERSION_base(4,6,0)-#else-atomicModifyIORef' = atomicModifyIORef-#endif-#endif--debug m = m--- debug m = return ()--type Map = Map.Map--{------------------------------------------------------------------------------    Types-------------------------------------------------------------------------------}--- | Coupons can be used as a proxy for 'Item'.------ The important point is that coupons can be serialized and sent--- over a remote connection.------ Coupons are in bijection with items:--- Different coupons will yield different items while--- the same item will always be associated to the same coupon.-type Coupon = BS.ByteString---- | Items represent foreign objects.--- The intended use case is that these objects do not live in RAM,--- but are only accessible via a remote connection.--- --- The foreign object can be accessed by means of the item data of type @a@.-type Item a = IORef (ItemData a)--data ItemData a = ItemData-    { self     :: Weak (Item a)-    , coupon   :: Coupon-    , value    :: a-    , children :: IORef [Weak (Item a)]-    }----- | Remote boothes are a mapping from 'Coupon' to 'Item'.------ Prize boothes are neutral concerning garbage collection,--- they do not keep items alive.--- Moreover, items will be deleted from the booth when they are garbage collected.-data PrizeBooth a = PrizeBooth-    { bCoupons :: MVar (Map Coupon (Weak (Item a)))-    , bCounter :: MVar [Integer]-    }--{------------------------------------------------------------------------------    Booth and Coupons-------------------------------------------------------------------------------}--- | Create a new prize booth for creating items and trading coupons.-newPrizeBooth :: IO (PrizeBooth a)-newPrizeBooth = do-    bCounter <- newMVar [0..]-    bCoupons <- newMVar Map.empty-    return $ PrizeBooth {..}---- | Take a coupon to the prize booth and maybe you'll get an item for it.-lookup :: Coupon -> PrizeBooth a -> IO (Maybe (Item a))-lookup coupon PrizeBooth{..} = do-    w <- Map.lookup coupon <$> readMVar bCoupons-    maybe (return Nothing) deRefWeak w---- | Create a new item, which can be exchanged for a coupon--- at an associated prize booth.------ The item can become unreachable,--- at which point it will be garbage collected,--- the finalizers will be run and its--- coupon ceases to be valid.-newItem :: PrizeBooth a -> a -> IO (Item a)-newItem PrizeBooth{..} value = do-    coupon   <- BS.pack . show <$> modifyMVar bCounter (\(n:ns) -> return (ns,n))-    children <- newIORef []-    let self = undefined-    item     <- newIORef ItemData{..}-    -    let finalize = modifyMVar bCoupons $ \m -> return (Map.delete coupon m, ())-    w <- mkWeakIORef item finalize-    modifyMVar bCoupons $ \m -> return (Map.insert coupon w m, ())-    atomicModifyIORef' item $ \itemdata -> (itemdata { self = w }, ())-    return item--{------------------------------------------------------------------------------    Items-------------------------------------------------------------------------------}--- | Perform an action with the item.--- --- While the action is being performed, it is ensured that the item--- will not be garbage collected--- and its coupon can be succesfully redeemed at the prize booth.-withItem :: Item a -> (Coupon -> a -> IO b) -> IO b-withItem item f = do-    ItemData{..} <- readIORef item-    b <- f coupon value-    touchItem item-    return b---- | Make Sure that the item in question is alive--- at the given place in the sequence of IO actions.-touchItem :: Item a -> IO ()-touchItem item = item `seq` return ()---- | Destroy an item and run all finalizers for it.--- Coupons for this item can no longer be redeemed.-destroy :: Item a -> IO ()-destroy item = finalize =<< self <$> readIORef item---- | Add a finalizer that is run when the item is garbage collected.------ The coupon cannot be redeemed anymore while the finalizer runs.-addFinalizer :: Item a -> IO () -> IO ()-addFinalizer item = void . mkWeakIORef item---- | When dealing with several foreign objects,--- it is useful to model dependencies between them.------ After this operation, the second 'Item' will be reachable--- whenever the first one is reachable.--- For instance, you should call this function when the second foreign object--- is actually a subobject of the first one.------ Note: It is possible to model dependencies in the @parent@ data,--- but the 'addReachable' method is preferrable,--- as it allows all child object to be garbage collected at once.-addReachable :: Item a -> Item a -> IO ()-addReachable parent child = do-    w   <- mkWeakIORefValue parent child $ return ()-    ref <- children <$> readIORef parent-    atomicModifyIORef' ref $ \ws -> (w:ws, ())---- | Clear all dependencies.--- --- Reachability of this 'Item' no longer implies reachability--- of other items, as formerly implied by calls to 'addReachable'.-clearReachable :: Item a -> IO ()-clearReachable item = do-    ref <- children <$> readIORef item-    xs  <- atomicModifyIORef' ref $ \xs -> ([], xs)-    mapM_ finalize xs

@@ -0,0 +1,74 @@+{-# LANGUAGE RecordWildCards #-}+module Foreign.JavaScript (+    -- * Synopsis+    -- | A JavaScript foreign function interface (FFI).+    --+    -- This module implements a web server that communicates with+    -- a web browser and allows you to execute arbitrary JavaScript code on it.+    --+    -- Note: This module is used internally by the "Graphics.UI.Threepenny"+    -- library, but the types are /not/ compatible.+    -- Use "Foreign.JavaScript" only if you want to roll your own+    -- interface to the web browser.++    -- * Server+    serve, Config(..), defaultConfig,+    Window, root,+    +    -- * JavaScript FFI+    ToJS(..), FromJS, JSFunction, JSObject,+    FFI, ffi, runFunction, callFunction,+    IsHandler, exportHandler, onDisconnect,+    debug,+    ) where++import qualified Data.Aeson                   as JSON+import           Foreign.JavaScript.EventLoop+import           Foreign.JavaScript.Marshal+import           Foreign.JavaScript.Server+import           Foreign.JavaScript.Types+import           Foreign.RemotePtr            as Foreign++{-----------------------------------------------------------------------------+    Server+------------------------------------------------------------------------------}+-- | Run a "Foreign.JavaScript" server.+serve+    :: Config               -- ^ Configuration options.+    -> (Window -> IO ())    -- ^ Initialization whenever a client connects.+    -> IO ()+serve config init = httpComm config (eventLoop init)++{-----------------------------------------------------------------------------+    JavaScript+------------------------------------------------------------------------------}+-- | Run a JavaScript function, but do not wait for a result.+runFunction :: Window -> JSFunction () -> IO ()+runFunction w f = runEval w =<< toCode f++-- | Call a JavaScript function and wait for the result.+callFunction :: Window -> JSFunction a -> IO a+callFunction w f = do+    resultJS <- callEval w =<< toCode f+    marshalResult f w resultJS++-- | Export a Haskell function as an event handler.+--+-- The result is a JavaScript @Function@ object that can be called+-- from JavaScript like a regular function. However,+-- the corresponding Haskell function will /not/ be run immediately,+-- rather it will be added to the event queue and processed+-- like an event. In other words, this the Haskell code is only called+-- asynchronously.+--+-- WARNING: The event handler will be garbage collected unless you+-- keep a reference to it /on the Haskell side/!+-- Registering it with a JavaScript function will generally /not/+-- keep it alive.+exportHandler :: IsHandler a => Window -> a -> IO JSObject+exportHandler w f = do+    g <- newHandler w (handle f w)+    h <- callFunction w $+        ffi "Haskell.newEvent(%1,%2)" g (convertArguments f)+    Foreign.addReachable h g+    return h

@@ -0,0 +1,172 @@+{-# LANGUAGE RecordWildCards, CPP #-}+{-# LANGUAGE RecursiveDo #-}+module Foreign.JavaScript.EventLoop (+    eventLoop,+    runEval, callEval, debug, onDisconnect,+    newHandler, fromJSStablePtr,+    ) where++import           Control.Applicative+import           Control.Concurrent+import           Control.Concurrent.Async+import           Control.Concurrent.STM   as STM+import           Control.Exception        as E    (finally)+import           Control.Monad+import qualified Data.Aeson               as JSON+import           Data.IORef+import qualified Data.Map                 as Map+import qualified Data.Text                as T+import qualified System.Mem++import Foreign.RemotePtr        as Foreign+import Foreign.JavaScript.Types++rebug :: IO ()+#ifdef REBUG+rebug = System.Mem.performGC+#else+rebug = return ()+#endif++{-----------------------------------------------------------------------------+    Event Loop+------------------------------------------------------------------------------}+-- | Handle a single event+handleEvent w@(Window{..}) (name, args, consistency) = do+    mhandler <- Foreign.lookup name wEventHandlers+    case mhandler of+        Nothing -> return ()+        Just f  -> withRemotePtr f (\_ f -> f args)+++-- | Event loop for a browser window.+-- Supports concurrent invocations of `runEval` and `callEval`.+eventLoop :: (Window -> IO void) -> (Comm -> IO ())+eventLoop init comm = do+    -- To support concurrent FFI calls, we make three threads.+    -- The thread `multiplexer` reads from the client and +    --   sorts the messages into the appropriate queue.+    events      <- newTQueueIO+    results     <- newTQueueIO :: IO (TQueue JSON.Value)+    -- The thread `handleCalls` executes FFI calls+    --    from the Haskell side in order.+    -- The corresponding queue records `TMVar`s in which to put the results.+    calls       <- newTQueueIO :: IO (TQueue (Maybe (TMVar JSON.Value), ServerMsg))+    -- The thread `handleEvents` handles client Events in order.++    -- Events will be queued (and labelled `Inconsistent`) whenever+    -- the server is+    --    * busy handling an event+    --    * or waiting for the result of a function call.+    handling    <- newTVarIO False+    calling     <- newTVarIO False++    -- FFI calls are made by writing to the `calls` queue.+    w0 <- newPartialWindow+    let runEval s = do+            atomically $ writeTQueue calls (Nothing , RunEval s)+        callEval s = do+            ref <- newEmptyTMVarIO+            atomically $ writeTQueue calls (Just ref, CallEval s)+            atomically $ takeTMVar ref+        debug    s = do+            atomically $ writeServer comm $ Debug s++    -- We also send a separate event when the client disconnects.+    disconnect <- newTVarIO $ return ()+    let onDisconnect m = atomically $ writeTVar disconnect m+    +    let w = w0 { runEval      = runEval+               , callEval     = callEval+               , debug        = debug+               , onDisconnect = onDisconnect+               }++    -- The individual threads are as follows:+    --+    -- Read client messages and send them to the+    -- thread that handles events or the thread that handles FFI calls.+    let multiplexer = do+            m <- untilJustM $ atomically $ do+                msg <- readClient comm+                case msg of+                    Event x y -> do+                        b <- (||) <$> readTVar handling <*> readTVar calling+                        let c = if b then Inconsistent else Consistent+                        writeTQueue events (x,y,c)+                        return Nothing+                    Result x  -> do+                        writeTQueue results x+                        return Nothing+                    Quit      -> Just <$> readTVar disconnect+            m+        +    -- Send FFI calls to client and collect results+    let handleCalls = forever $ do+            ref <- atomically $ do+                (ref, msg) <- readTQueue calls+                writeTVar calling True+                writeServer comm msg+                return ref+            atomically $ do+                writeTVar calling False+                case ref of+                    Just ref -> do+                        result <- readTQueue results+                        putTMVar ref result+                    Nothing  -> return ()+    +    -- Receive events from client and handle them in order.+    let handleEvents = do+            init w+            forever $ do+                e <- atomically $ do+                    writeTVar handling True+                    readTQueue events+                handleEvent w e+                rebug+                atomically $ writeTVar handling False++    -- Foreign.addFinalizer (wRoot w) $ putStrLn "wRoot garbage collected."+    Foreign.withRemotePtr (wRoot w) $ \_ _ -> do    -- keep root alive+        E.finally+            (foldr1 race_ [multiplexer, handleEvents, handleCalls])+            (commClose comm)++    return ()++-- | Repeat an action until it returns 'Just'. Similar to 'forever'.+untilJustM :: Monad m => m (Maybe a) -> m a+untilJustM m = m >>= \x -> case x of+    Nothing -> untilJustM m+    Just a  -> return a++{-----------------------------------------------------------------------------+    Exports, Imports and garbage collection+------------------------------------------------------------------------------}+-- | Turn a Haskell function into an event handler.+newHandler :: Window -> ([JSON.Value] -> IO ()) -> IO HsEvent+newHandler w@(Window{..}) handler = do+    coupon <- newCoupon wEventHandlers+    newRemotePtr coupon (handler . parseArgs) wEventHandlers+    where+    fromSuccess (JSON.Success x) = x+    -- parse a genuine JavaScript array+    parseArgs x = fromSuccess (JSON.fromJSON x) :: [JSON.Value]+    -- parse a JavaScript arguments object+    -- parseArgs x = Map.elems (fromSuccess (JSON.fromJSON x) :: Map.Map String JSON.Value)+++-- | Convert a stable pointer from JavaScript into a 'JSObject'.+fromJSStablePtr :: JSON.Value -> Window -> IO JSObject+fromJSStablePtr js w@(Window{..}) = do+    let JSON.Success coupon = JSON.fromJSON js+    mhs <- Foreign.lookup coupon wJSObjects+    case mhs of+        Just hs -> return hs+        Nothing -> do+            ptr <- newRemotePtr coupon (JSPtr coupon) wJSObjects+            addFinalizer ptr $+                runEval ("Haskell.freeStablePtr('" ++ T.unpack coupon ++ "')")+            return ptr+

@@ -0,0 +1,32 @@+{-# LANGUAGE TemplateHaskell, CPP #-}+module Foreign.JavaScript.Include (include) where+ +import           Data.Functor+import qualified Language.Haskell.TH       as TH+import           Language.Haskell.TH.Quote+import           System.IO+++#if defined(SAMPLES)+root :: FilePath+root = "../" -- we are running the examples from ghci+#else+root :: FilePath+root = "./"+#endif++include :: QuasiQuoter+include = QuasiQuoter+        { quoteExp  = f             -- only used as an expression,+        , quotePat  = undefined     -- hence all other use cases undefined+        , quoteType = undefined+        , quoteDec  = undefined+        }+    where+    f s = TH.LitE . TH.StringL <$> TH.runIO (readFileUTF8 $ root ++ s)++readFileUTF8 :: FilePath -> IO String+readFileUTF8 path = do+    h <- openFile path ReadMode+    hSetEncoding h utf8+    hGetContents h

@@ -0,0 +1,222 @@+{-# LANGUAGE FlexibleInstances, TypeSynonymInstances, ScopedTypeVariables #-}+module Foreign.JavaScript.Marshal (+    ToJS(..), FromJS,+    FFI, JSFunction, toCode, marshalResult, ffi,+    IsHandler, convertArguments, handle,+    ) where++import           Data.Aeson             as JSON+import qualified Data.Aeson.Encode+import qualified Data.Aeson.Types       as JSON+import           Data.Functor                     ((<$>))+import           Data.List                        (intercalate)+import qualified Data.Text              as T+import qualified Data.Text.Lazy+import qualified Data.Text.Lazy.Builder+import qualified Data.Vector            as Vector+import           Safe                             (atMay)++import Foreign.JavaScript.EventLoop (fromJSStablePtr)+import Foreign.JavaScript.Types+import Foreign.RemotePtr++{-----------------------------------------------------------------------------+    Convert Haskell values to JavaScript values+------------------------------------------------------------------------------}+-- | JavaScript code snippet.+newtype JSCode = JSCode { unJSCode :: String }+    deriving (Eq, Ord, Show)++-- | Helper class for rendering Haskell values as JavaScript expressions.+class ToJS a where+    render     :: a   -> IO JSCode+    renderList :: [a] -> IO JSCode++    renderList xs = do+        ys <- mapM render xs+        jsCode $ "[" ++ intercalate "," (map unJSCode ys) ++ "]"++jsCode = return . JSCode++instance ToJS Float      where render   = render . JSON.toJSON+instance ToJS Double     where render   = render . JSON.toJSON+instance ToJS Int        where render   = jsCode . show+instance ToJS Bool       where render b = jsCode $ if b then "true" else "false"+instance ToJS JSON.Value where render   = jsCode . showJSON+instance ToJS T.Text     where render   = render . JSON.String+instance ToJS Char       where+    render x   = renderList [x]+    renderList = render . JSON.String . T.pack++instance ToJS a => ToJS [a] where+    render = renderList++instance ToJS HsEvent    where+    render x   = render =<< unprotectedGetCoupon x+instance ToJS JSObject   where+    render x   = apply1 "Haskell.deRefStablePtr(%1)"+                 <$> (render =<< unprotectedGetCoupon x)++-- | Show a type in a JSON compatible way.+showJSON :: ToJSON a => a -> String+showJSON+    = Data.Text.Lazy.unpack+    . Data.Text.Lazy.Builder.toLazyText+    . Data.Aeson.Encode.encodeToTextBuilder . JSON.toJSON++{-----------------------------------------------------------------------------+    Convert JavaScript values to Haskell values+------------------------------------------------------------------------------}+data FromJS' a = FromJS'+    { wrapCode :: (JSCode -> JSCode)+    , marshal  :: Window -> JSON.Value -> IO a+    }++-- | Helper class for converting JavaScript values to Haskell values.+class FromJS a where+    fromJS   :: FromJS' a++-- | Marshal a simple type to Haskell.+simple :: FromJSON a => (JSCode -> JSCode) -> FromJS' a+simple f =+    FromJS' { wrapCode = f , marshal = \_ -> fromSuccessIO . JSON.fromJSON }+    where+    fromSuccessIO (JSON.Success a) = return a++instance FromJS String     where fromJS = simple $ apply1 "%1.toString()"+instance FromJS T.Text     where fromJS = simple $ apply1 "%1.toString()"+instance FromJS Int        where fromJS = simple id+instance FromJS Double     where fromJS = simple id+instance FromJS Float      where fromJS = simple id+instance FromJS JSON.Value where fromJS = simple id++instance FromJS ()         where+    fromJS = FromJS' { wrapCode = id, marshal = \_ _ -> return () }++instance FromJS JSObject   where+    fromJS = FromJS'+        { wrapCode = apply1 "Haskell.getStablePtr(%1)"+        , marshal  = \w v -> fromJSStablePtr v w+        }++-- FIXME: Not sure whether this instance is really a good idea.+instance FromJS [JSObject] where+    fromJS = FromJS'+        { wrapCode = apply1 "Haskell.map(Haskell.getStablePtr, %1)"+        , marshal  = \w (JSON.Array vs) -> do+            mapM (\v -> fromJSStablePtr v w) (Vector.toList vs)+        }++{-----------------------------------------------------------------------------+    Variable argument JavaScript functions+------------------------------------------------------------------------------}+-- | A JavaScript function with a given output type @a@.+data JSFunction a = JSFunction+    { code          :: IO JSCode+      -- ^ Code snippet that implements the function.+    , marshalResult :: Window -> JSON.Value -> IO a+      -- ^ Marshal the function result to a Haskell value.+    }++-- | Change the output type of a 'JSFunction'.+instance Functor JSFunction where+    fmap f (JSFunction c m) = JSFunction c (\w v -> fmap f $ m w v)++-- | Render function to a textual representation using JavaScript syntax.+toCode :: JSFunction a -> IO String+toCode = fmap unJSCode . code+++-- | Helper class for making 'ffi' a variable argument function.+class FFI a where+    fancy :: ([JSCode] -> IO JSCode) -> a++instance (ToJS a, FFI b) => FFI (a -> b) where+    fancy f a = fancy $ \xs -> do+        x <- render a+        f (x:xs)++instance FromJS b        => FFI (JSFunction b) where+    fancy f   = JSFunction+        { code          = wrapCode b <$> f []+        , marshalResult = marshal b+        }+        where b = fromJS++-- | Simple JavaScript FFI with string substitution.+--+-- Inspired by the Fay language. <http://fay-lang.org/>+--+-- > example :: String -> Int -> JSFunction String+-- > example = ffi "$(%1).prop('checked',%2)"+--+-- The 'ffi' function takes a string argument representing the JavaScript+-- code to be executed on the client.+-- Occurrences of the substrings @%1@ to @%9@ will be replaced by+-- subequent arguments.+--+-- Note: Always specify a type signature! The types automate+-- how values are marshalled between Haskell and JavaScript.+-- The class instances for the 'FFI' class show which conversions are supported.+--+ffi :: FFI a => String -> a+ffi macro = fancy (return . apply macro)++testFFI :: String -> Int -> JSFunction String+testFFI = ffi "$(%1).prop('checked',%2)"++{-----------------------------------------------------------------------------+    Type classes+------------------------------------------------------------------------------}+-- | Helper class for exporting Haskell functions to JavaScript+-- as event handlers.+class IsHandler a where+    convertArgs :: a -> Int -> [JSCode]+    handle      :: a -> Window -> [JSON.Value] -> IO ()++instance (FromJS a, IsHandler b) => IsHandler (a -> b) where+    convertArgs = convertArgs'+    handle f = \w (a:as) -> do+        x <- marshal fromJS w a+        handle (f x) w as++convertArgs' :: forall a b. (FromJS a, IsHandler b) => (a -> b) -> Int -> [JSCode]+convertArgs' f n = wrap arg : convertArgs (f x) (n+1)+    where+    x    = undefined :: a+    wrap = wrapCode (fromJS :: FromJS' a)+    arg  = JSCode $ "arguments[" ++ show n ++ "]"++instance IsHandler (IO ()) where+    convertArgs _ _ = []+    handle      m   = \_ _ -> m++-- | Code needed to preconvert arguments on the JavaScript side.+convertArguments :: IsHandler a => a -> String+convertArguments f =+    "[" ++ intercalate "," (map unJSCode $ convertArgs f 0) ++ "]"+++{-----------------------------------------------------------------------------+    String utilities+------------------------------------------------------------------------------}+-- | String substitution.+-- Substitute occurences of %1, %2 up to %9 with the argument strings.+-- The types ensure that the % character has no meaning in the generated output.+-- +-- > apply "%1 and %2" [x,y] = x ++ " and " ++ y+apply :: String -> [JSCode] -> JSCode+apply code args = JSCode $ go code+    where+    at xs i = maybe (error err) id $ atMay xs i+    err     = "Graphics.UI.Threepenny.FFI: Too few arguments in FFI call!"+    argument i = unJSCode (args `at` i)+    +    go []         = []+    go ('%':c:cs) = argument index ++ go cs+        where index = fromEnum c - fromEnum '1'+    go (c:cs)     = c : go cs++-- | Apply string substitution that expects a single argument.+apply1 :: String -> JSCode -> JSCode+apply1 s x = apply s [x]

@@ -0,0 +1,24 @@+{-# LANGUAGE QuasiQuotes #-}+module Foreign.JavaScript.Resources where++import           Data.Text                          (Text)+import qualified Data.Text                  as Text+import           Foreign.JavaScript.Include+++jsDriverCode :: Text+jsDriverCode = Text.unlines $ map Text.pack+    [ [include|js/lib/jquery.js|]+    , [include|js/lib/jquery-cookie.js|]+    , "var Haskell = {};"+    , [include|js/comm.js|]+    , [include|js/ffi.js|]+    , [include|js/lib.js|]+    , [include|js/log.js|]+    ]++cssDriverCode :: Text+cssDriverCode = Text.pack [include|js/haskell.css|]++defaultHtmlFile :: Text+defaultHtmlFile = Text.pack [include|js/index.html|]

@@ -0,0 +1,126 @@+{-# LANGUAGE RecordWildCards, OverloadedStrings #-}+module Foreign.JavaScript.Server (+    httpComm+    ) where++-- import general libraries+import           Control.Concurrent+import           Control.Concurrent.Async+import           Control.Concurrent.STM     as STM+import qualified Control.Exception          as E+import           Control.Monad+import           Data.ByteString                    (ByteString)+import qualified Data.ByteString.Char8      as BS+import qualified Data.ByteString.Lazy.Char8 as LBS+import           Data.Text+import qualified Safe                       as Safe+import           System.Environment+import           System.FilePath++-- import web libraries+import           Data.Aeson                             ((.=))+import qualified Data.Aeson                    as JSON+import qualified Network.WebSockets            as WS+import qualified Network.WebSockets.Snap       as WS+import           Snap.Core+import qualified Snap.Http.Server              as Snap+import           Snap.Util.FileServe++-- import internal modules+import Foreign.JavaScript.Resources+import Foreign.JavaScript.Types++{-----------------------------------------------------------------------------+    HTTP Server using WebSockets+------------------------------------------------------------------------------}+-- | Run a HTTP server that creates a 'Comm' channel.+httpComm :: Config -> (Comm -> IO ()) -> IO ()+httpComm Config{..} worker = do+    env <- getEnvironment+    let portEnv = Safe.readMay =<< Prelude.lookup "PORT" env+    let addrEnv = fmap BS.pack $ Prelude.lookup "ADDR" env+    +    let config = Snap.setPort      (maybe defaultPort id (jsPort `mplus` portEnv))+               $ Snap.setBind      (maybe defaultAddr id (jsAddr `mplus` addrEnv))+               $ Snap.setErrorLog  (Snap.ConfigIoLog jsLog)+               $ Snap.setAccessLog (Snap.ConfigIoLog jsLog)+               $ Snap.defaultConfig+    Snap.httpServe config . route $+        routeResources jsCustomHTML jsStatic+        ++ routeWebsockets worker++-- | Route the communication between JavaScript and the server+routeWebsockets :: (Comm -> IO void) -> Routes+routeWebsockets worker = [("websocket", response)]+    where+    response = WS.runWebSocketsSnap $ \ws -> void $ do+        comm <- communicationFromWebSocket ws+        worker comm+        -- error "Foreign.JavaScript: unreachable code path."++-- | Create 'Comm' channel from WebSocket request.+communicationFromWebSocket :: WS.PendingConnection -> IO Comm+communicationFromWebSocket request = do+    connection <- WS.acceptRequest request+    commIn     <- STM.newTQueueIO   -- outgoing communication+    commOut    <- STM.newTQueueIO   -- incoming communication++    -- write data to browser+    let sendData = forever $ do+            x <- atomically $ STM.readTQueue commOut+            -- see note [ServerMsg strictness]+            WS.sendTextData connection . JSON.encode $ x++    -- read data from browser+    let readData = forever $ do+            input <- WS.receiveData connection+            case input of+                "ping" -> WS.sendTextData connection . LBS.pack $ "pong"+                "quit" -> E.throw WS.ConnectionClosed+                input  -> case JSON.decode input of+                    Just x   -> atomically $ STM.writeTQueue commIn x+                    Nothing  -> error $+                        "Foreign.JavaScript: Couldn't parse JSON input"+                        ++ show input+    +    let manageConnection = do+            withAsync sendData $ \_ -> do+            Left e <- waitCatch =<< async readData+            atomically $ STM.writeTQueue commIn $+                JSON.object [ "tag" .= ("Quit" :: Text) ] -- write Quit event+            E.throw e++    thread <- forkFinally manageConnection+        (\_ -> WS.sendClose connection $ LBS.pack "close")+    let commClose = killThread thread++    return $ Comm {..}++{-----------------------------------------------------------------------------+    Resources+------------------------------------------------------------------------------}+type Routes = [(ByteString, Snap ())]++routeResources :: Maybe FilePath -> Maybe FilePath -> Routes+routeResources customHTML staticDir =+    fixHandlers noCache $+        static +++        [("/"            , root)+        ,("/haskell.js"  , writeTextMime jsDriverCode  "application/javascript")+        ,("/haskell.css" , writeTextMime cssDriverCode "text/css")+        ]+    where+    fixHandlers f routes = [(a,f b) | (a,b) <- routes]+    noCache h = modifyResponse (setHeader "Cache-Control" "no-cache") >> h+    +    static = maybe [] (\dir -> [("/static", serveDirectory dir)]) staticDir+    +    root = case customHTML of+        Just file -> case staticDir of+            Just dir -> serveFile (dir </> file)+            Nothing  -> logError "Foreign.JavaScript: Cannot use jsCustomHTML file without jsStatic"+        Nothing   -> writeTextMime defaultHtmlFile "text/html"++writeTextMime text mime = do+    modifyResponse (setHeader "Content-type" mime)+    writeText text

@@ -0,0 +1,187 @@+{-# LANGUAGE OverloadedStrings #-}+module Foreign.JavaScript.Types where++import           Control.Applicative+import           Control.Concurrent.STM  as STM+import           Control.Concurrent.Chan as Chan+import           Control.Concurrent.MVar+import           Control.DeepSeq+import           Data.Aeson              as JSON+import           Data.ByteString.Char8           (ByteString)+import qualified Data.ByteString.Char8   as BS   (hPutStrLn)+import           Data.IORef+import           Data.Map                as Map+import           Data.String+import           Data.Text+import           System.IO                       (stderr)++import Foreign.RemotePtr++{-----------------------------------------------------------------------------+    Server Configuration+------------------------------------------------------------------------------}+-- | Configuration of a "Foreign.JavaScript" server.+data Config = Config+    { jsPort       :: Maybe Int           +        -- ^ Port number.+        -- @Nothing@ means that the port number is+        -- read from the environment variable @PORT@.+        -- Alternatively, port @8023@ is used if this variable is not set.+    , jsAddr       :: Maybe ByteString+        -- ^ Bind address.+        -- @Nothing@ means that the bind address is+        -- read from the environment variable @ADDR@.+        -- Alternatively, address @127.0.0.1@ is+        -- used if this variable is not set.+    , jsCustomHTML :: Maybe FilePath+        -- ^ Custom HTML file to replace the default one.+    , jsStatic     :: Maybe FilePath+        -- ^ Directory that is served under @/static@.+    , jsLog        :: ByteString -> IO ()+        -- ^ Print a single log message.+    }++defaultPort :: Int+defaultPort = 8023++defaultAddr :: ByteString+defaultAddr = "127.0.0.1"++-- | Default configuration.+--+-- Port from environment variable or @8023@,+-- listening on @localhost@, no custom HTML, no static directory,+-- logging to stderr.+defaultConfig :: Config+defaultConfig = Config+    { jsPort       = Nothing+    , jsAddr       = Nothing+    , jsCustomHTML = Nothing+    , jsStatic     = Nothing+    , jsLog        = BS.hPutStrLn stderr+    }++{-----------------------------------------------------------------------------+    Communication channel+------------------------------------------------------------------------------}+-- | Bidirectional communication channel.+data Comm = Comm+    { commIn    :: TQueue JSON.Value+    , commOut   :: TQueue JSON.Value+    , commClose :: IO ()+    }++writeComm :: Comm -> JSON.Value -> STM ()+writeComm c = STM.writeTQueue (commOut c)++readComm :: Comm -> STM JSON.Value+readComm c = STM.readTQueue (commIn c)++{-----------------------------------------------------------------------------+    Communication protocol+------------------------------------------------------------------------------}+-- | Messages received from the JavaScript client.+data ClientMsg+    = Event Coupon JSON.Value+    | Result JSON.Value+    | Quit+    deriving (Eq, Show)++instance FromJSON ClientMsg where+    parseJSON (Object msg) = do+        tag <- msg .: "tag"+        case (tag :: Text) of+            "Event" ->+                Event  <$> (msg .: "name") <*> (msg .: "arguments")+            "Result" ->+                Result <$> (msg .: "contents")+            "Quit"   ->+                return Quit++readClient :: Comm -> STM ClientMsg+readClient c = do+    msg <- readComm c+    case JSON.fromJSON msg of+        Error   s -> error $ "Foreign.JavaScript: Error parsing client message " ++ show s+        Success x -> return x++-- | Messages sent by the Haskell server.+data ServerMsg+    = RunEval  String+    | CallEval String+    | Debug    String+    deriving (Eq,Show)++instance NFData ServerMsg where+    rnf (RunEval   x) = rnf x+    rnf (CallEval  x) = rnf x+    rnf (Debug     x) = rnf x++instance ToJSON ServerMsg where+    toJSON (Debug    x) = object [ "tag" .= t "Debug"   , "contents" .= toJSON x]+    toJSON (RunEval  x) = object [ "tag" .= t "RunEval" , "contents" .= toJSON x]+    toJSON (CallEval x) = object [ "tag" .= t "CallEval", "contents" .= toJSON x]++t s = fromString s :: Text++writeServer :: Comm -> ServerMsg -> STM ()+writeServer c = writeComm c . toJSON . force++{- Note [ServerMsg strictness]++The type `ServerMsg` may contain components that evalute to _|_, and+an exception will be thrown when we try to send one of those to the browser.++However, we have to make sure that the exception is thrown+in the thread that constructed the message, not in the thread that+handles the actual communication with the client. That's why we use+the function `Control.DeepSeq.force` to make sure that any exception+is thrown before handing the message over to another thread.++-}++{-----------------------------------------------------------------------------+    Window & Event Loop+------------------------------------------------------------------------------}+data Consistency  = Consistent | Inconsistent+type Event        = (Coupon, JSON.Value, Consistency)++-- | An event handler that can be passed to the JavaScript client.+type HsEvent      = RemotePtr (JSON.Value -> IO ())++quit :: Event+quit = ("quit", JSON.Null, Consistent)++-- | Representation of a browser window.+data Window = Window+    { runEval        :: String -> IO ()+    , callEval       :: String -> IO JSON.Value+    , debug          :: String -> IO ()+    -- ^ Send a debug message to the JavaScript console.+    , onDisconnect   :: IO () -> IO ()+    -- ^ Register an action to be performed when the client disconnects.+    , wRoot          :: RemotePtr ()+    , wEventHandlers :: Vendor (JSON.Value -> IO ())+    , wJSObjects     :: Vendor JSPtr+    }++newPartialWindow :: IO Window+newPartialWindow = do+    ptr <- newRemotePtr "" () =<< newVendor+    let nop = const $ return ()+    Window nop undefined nop nop ptr <$> newVendor <*> newVendor++-- | For the purpose of controlling garbage collection,+-- every 'Window' as an associated 'RemotePtr' that is alive+-- as long as the external JavaScript connection is alive.+root :: Window -> RemotePtr ()+root = wRoot++{-----------------------------------------------------------------------------+    Marshalling+------------------------------------------------------------------------------}+newtype JSPtr = JSPtr { unsJSPtr :: Coupon }++-- | A mutable JavaScript object.+type JSObject = RemotePtr JSPtr+

@@ -0,0 +1,201 @@+{-# LANGUAGE RecordWildCards, CPP, ExistentialQuantification #-}+{-# LANGUAGE MagicHash, UnboxedTuples #-}+module Foreign.RemotePtr (+    -- * Synopsis+    -- | Toolbox for managing remote objects in Haskell.+    +    -- * RemotePtr+    RemotePtr,+    withRemotePtr, addFinalizer, destroy, addReachable, clearReachable,+    unprotectedGetCoupon,++    -- * Coupons and Vendors+    Coupon, newCoupon,+    Vendor, newVendor, lookup,+    newRemotePtr,+    ) where++import Prelude hiding (lookup)+import Control.Monad+import           Control.Concurrent+import qualified Data.Text             as T+import qualified Data.Map              as Map+import Data.Functor+import Data.IORef++import           System.IO.Unsafe         (unsafePerformIO)+import           System.Mem.Weak          hiding (addFinalizer)+import qualified System.Mem.Weak  as Weak++import qualified GHC.Base  as GHC+import qualified GHC.Weak  as GHC+import qualified GHC.IORef as GHC+import qualified GHC.STRef as GHC++mkWeakIORefValue :: IORef a -> value -> IO () -> IO (Weak value)+mkWeakIORefValue r@(GHC.IORef (GHC.STRef r#)) v f = GHC.IO $ \s ->+  case GHC.mkWeak# r# v f s of (# s1, w #) -> (# s1, GHC.Weak w #)++#if CABAL+#if MIN_VERSION_base(4,6,0)+#else+atomicModifyIORef' = atomicModifyIORef+#endif+#endif++type Map = Map.Map++{-----------------------------------------------------------------------------+    Types+------------------------------------------------------------------------------}+-- | A 'Coupon' is a unique identifier.+-- +-- It is a string of alphanumeric ASCII characters and it is intended to+-- be sent to or received from a remote program.+--+-- The data structure 'Vendor' associates 'Coupon's to 'RemotPtr' objects.+type Coupon = T.Text+++-- | A 'RemotePtr' is a pointer to a foreign object.+-- +-- Like a 'ForeignPtr', it refers to an object managed by an environment+-- external to the Haskell runtime.+-- Likewise, you can assign finalizers to a 'RemotePtr'. The finalizers+-- will be run when the Haskell runtime garbage collects this value.+-- They can perform some cleanup operations, like freeing memory.+--+-- Unlike a 'ForeignPtr', the object referenced by a 'RemotePtr' is not+-- necessarily a block of RAM. Instead, it can refer to things like an object+-- managed by a remote program.++type RemotePtr a = IORef (RemoteData a)++data RemoteData a = RemoteData+    { self     :: Weak (RemotePtr a)+    , coupon   :: Coupon+    , value    :: a+    , children :: IORef [SomeWeak]+    }++-- Existentially quantified weak pointer. We only care about its finalizer.+data SomeWeak = forall a. SomeWeak (Weak a)++-- | A 'Vendor' is a bijective mapping from 'Coupon' to 'RemotePtr'.+--+-- Every 'Coupon' has at most one 'RemotePtr' associated to it.+-- A single 'RemotePtr' will always be associated with the same 'Coupon'.++data Vendor a = Vendor+    { coupons :: MVar (Map Coupon (Weak (RemotePtr a)))+    , counter :: MVar [Integer]+    }++{-----------------------------------------------------------------------------+    Vendor and Coupons+------------------------------------------------------------------------------}+-- | Create a new 'Vendor' for trading 'Coupon's and 'RemotePtr's.+newVendor :: IO (Vendor a)+newVendor = do+    counter <- newMVar [0..]+    coupons <- newMVar Map.empty+    return $ Vendor {..}++-- | Take a 'Coupon' to a 'Vendor' and maybe you'll get a 'RemotePtr' for it.+lookup :: Coupon -> Vendor a -> IO (Maybe (RemotePtr a))+lookup coupon Vendor{..} = do+    w <- Map.lookup coupon <$> readMVar coupons+    maybe (return Nothing) deRefWeak w++-- | Create a new 'Coupon'.+--+-- WARNING: This coupon is only unique relative to this 'Vendor'.+-- There is no guarantee that this 'Coupon' is globally unique,+-- certainly not on a remote machine.+newCoupon :: Vendor a -> IO Coupon+newCoupon Vendor{..} =+    T.pack . show <$> modifyMVar counter (\(n:ns) -> return (ns,n))++-- | Create a new 'RemotePtr' from a 'Coupon' and register it with a 'Vendor'.+newRemotePtr :: Coupon -> a -> Vendor a -> IO (RemotePtr a)+newRemotePtr coupon value Vendor{..} = do+    children <- newIORef []+    let self = undefined+    ptr      <- newIORef RemoteData{..}+    +    let finalize = modifyMVar coupons $ \m -> return (Map.delete coupon m, ())+    w <- mkWeakIORef ptr finalize+    modifyMVar coupons $ \m -> return (Map.insert coupon w m, ())+    atomicModifyIORef' ptr $ \itemdata -> (itemdata { self = w }, ())+    return ptr++{-----------------------------------------------------------------------------+    RemotePtr+------------------------------------------------------------------------------}+-- | Access the data of the 'RemotePtr'.+-- +-- While the action is being performed, it is ensured that the 'RemotePtr'+-- will not be garbage collected+-- and its 'Coupon' can be successfully redeemed at the 'Vendor'.+withRemotePtr :: RemotePtr a -> (Coupon -> a -> IO b) -> IO b+withRemotePtr ptr f = do+        RemoteData{..} <- readIORef ptr+        b <- f coupon value+        touch ptr+        return b+    where+    -- make sure that the pointer is alive at this point in the code+    touch ptr = void $ readIORef ptr++-- | Unprotected access the 'Coupon' of a 'RemotePtr'.+--+-- Note: There is no guarantee that the 'RemotePtr' is alive+-- after this operation and that the 'Coupon' can be redeemed at a 'Vendor'.+-- Most of the time, you should use 'withRemotePtr' instead.+--+-- Note: In particular, if you use this with @unsafePerformIO@,+-- the risk is high that you only refer to the 'RemotePtr' argument via+-- the result just obtained, and the pointer will be garbage collected.+unprotectedGetCoupon :: RemotePtr a -> IO Coupon+unprotectedGetCoupon ptr = coupon <$> readIORef ptr+++-- | Add a finalizer that is run when the 'RemotePtr' is garbage collected.+--+-- The associated coupon cannot be redeemed anymore while the finalizer runs.+addFinalizer :: RemotePtr a -> IO () -> IO ()+addFinalizer ptr = void . mkWeakIORef ptr+-- | FIXME: Is this finalizer really run when 'destroy' is called?++-- | Destroy a 'RemotePtr' and run all finalizers for it.+-- 'Coupon's for this pointer can no longer be redeemed.+destroy :: RemotePtr a -> IO ()+destroy ptr = finalize =<< self <$> readIORef ptr+++-- | When dealing with several foreign objects,+-- it is useful to model dependencies between them.+--+-- After this operation, the second 'RemotePtr' will be reachable+-- whenever the first one is reachable.+-- For instance, you should call this function when the second foreign object+-- is actually a subobject of the first one.+--+-- Note: It is possible to model dependencies in the @parent@ data,+-- but the 'addReachable' method is preferrable,+-- as it allows all child object to be garbage collected at once.+addReachable :: RemotePtr a -> RemotePtr b -> IO ()+addReachable parent child = do+    w   <- mkWeakIORefValue parent child $ return ()+    ref <- children <$> readIORef parent+    atomicModifyIORef' ref $ \ws -> (SomeWeak w:ws, ())++-- | Clear all dependencies.+-- +-- Reachability of this 'RemotePtr' no longer implies reachability+-- of other items, as formerly implied by calls to 'addReachable'.+clearReachable :: RemotePtr a -> IO ()+clearReachable parent = do+    ref <- children <$> readIORef parent+    xs  <- atomicModifyIORef' ref $ \xs -> ([], xs)+    sequence_ [finalize x | SomeWeak x <- xs]

@@ -37,8 +37,6 @@ For an introduction, see the example below. The module "Graphics.UI.Threepenny.Core" contains the main functions. -This project was originally called Ji.- -}  @@ -56,14 +54,14 @@ > import qualified Graphics.UI.Threepenny       as UI > import           Graphics.UI.Threepenny.Core -We begin by starting a server on port @10000@ using the 'startGUI' function.+We begin by starting a server on port @8023@ using the 'startGUI' function. Additional static content is served from the @../wwwroot@ directory.  > main :: IO () > main = do >     startGUI defaultConfig->         { tpPort       = 10000->         , tpStatic     = Just "../wwwroot"+>         { jsPort       = 8023+>         , jsStatic     = Just "../wwwroot" >         } setup  Whenever a browser connects to the server,@@ -98,10 +96,11 @@ >     on UI.click button $ const $ do >         element button # set UI.text "I have been clicked!" -That's it for a first example!+That's it! Now, run the program and visit the URL <http://localhost:8023/>+in your browser to interact with the user interface.  The libary comes with a-<https://github.com/HeinrichApfelmus/threepenny-gui#examples plethora of additional example code>.+<https://github.com/HeinrichApfelmus/threepenny-gui/tree/master/samples#readme plethora of additional example code>.   -}

@@ -10,7 +10,7 @@     background, base, bgcolor, border, bordercolor,     cellpadding, cellspacing, checked_, class_, clear_, code_, codebase,     color, cols, colspan, compact, content, coords,-    enctype, face, frameborder, height, href, hspace, httpequiv,+    enctype, face, for, frameborder, height, href, hspace, httpequiv,     id_, ismap, lang, marginheight, marginwidth, maxlength, method, multiple,     name, nohref, noresize, noshade, nowrap,     rel, rev, rows, rowspan, rules,@@ -86,6 +86,7 @@ coords              =   strAttr "coords" enctype             =   strAttr "enctype" face                =   strAttr "face"+for                 =   strAttr "for" frameborder         =   intAttr "frameborder" height              =   intAttr "height" href                =   strAttr "href"

@@ -1,5 +1,3 @@-{-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}-{-# LANGUAGE RecursiveDo #-} {-# LANGUAGE FlexibleContexts #-} module Graphics.UI.Threepenny.Core (     -- * Synopsis@@ -8,7 +6,6 @@     -- * Server     -- $server     Config(..), defaultConfig, startGUI,-    loadFile, loadDirectory,          -- * UI monad     -- $ui@@ -17,14 +14,14 @@     module Control.Monad.Fix,          -- * Browser Window-    Window, title, cookies, getRequestLocation,+    Window, title,          -- * DOM elements     -- | Create and manipulate DOM elements.-    Element, mkElement, getWindow, delete, (#+), string,+    Element, getWindow, mkElement, mkElementNamespace, delete,+        string,         getHead, getBody,-        children, text, html, attr, style, value,-    getValuesList,+        (#+), children, text, html, attr, style, value,     getElementsByTagName, getElementById, getElementsByClassName,          -- * Layout@@ -34,7 +31,7 @@          -- * Events     -- | For a list of predefined events, see "Graphics.UI.Threepenny.Events".-    EventData(..), domEvent, disconnect, on, onEvent, onChanges,+    EventData, domEvent, unsafeFromJSON, disconnect, on, onEvent, onChanges,     module Reactive.Threepenny,          -- * Attributes@@ -52,147 +49,44 @@     debug,     ToJS, FFI,     JSFunction, ffi, runFunction, callFunction,-    HsFunction, ffiExport,-    atomic,+    ffiExport,          -- * Internal and oddball functions-    fromJQueryProp, toElement,-    audioPlay, audioStop,+    fromJQueryProp,          ) where -import Data.Dynamic-import Data.IORef-import qualified Data.Map as Map-import Data.Maybe (listToMaybe)-import Data.Functor-import Data.String (fromString)--import Control.Applicative (Applicative)-import Control.Concurrent.MVar-import Control.Monad+import Control.Monad          (forM_, forM, void) import Control.Monad.Fix import Control.Monad.IO.Class-import qualified Control.Monad.Trans.RWS.Lazy as Monad -import Network.URI-import qualified Data.Aeson as JSON--import           Reactive.Threepenny hiding (onChange)-import qualified Reactive.Threepenny as Reactive+import qualified Data.Aeson                      as JSON+import qualified Foreign.JavaScript              as JS+import qualified Graphics.UI.Threepenny.Internal as Core+import qualified Reactive.Threepenny             as Reactive -import qualified Graphics.UI.Threepenny.Internal.Driver  as Core-import           Graphics.UI.Threepenny.Internal.Driver-    ( getRequestLocation-    , atomic, )-import           Graphics.UI.Threepenny.Internal.FFI-import           Graphics.UI.Threepenny.Internal.Types   as Core-    ( Window, Config, defaultConfig, Events, EventData-    , ElementData(..), withElementData,)+-- exports+import Foreign.JavaScript                   (Config(..), defaultConfig)+import Graphics.UI.Threepenny.Internal+import Reactive.Threepenny                  hiding (onChange)  -import Graphics.UI.Threepenny.Internal.Types as Core-    (unprotectedGetElementId, withElementData, ElementData(..))- {-----------------------------------------------------------------------------     Server ------------------------------------------------------------------------------} {- $server  To display the user interface, you have to start a server using 'startGUI'.-Then, visit the URL <http://localhost:10000/> in your browser-(assuming that you have set the port number to @tpPort=10000@-in the server configuration).+Then, visit the URL <http://localhost:8023/> in your browser+(assuming that you use the default server configuration 'defaultConfig',+or have set the port number to @jsPort=8023@.) -The server is multithreaded,-a separate thread is used to communicate with a single browser 'Window'.-However, each window should only be accessed from a single thread,-otherwise the behavior will be undefined,-i.e. you could run an element search and get a click event as a result-if you don't access each window in a single-threaded fashion.+The server is multithreaded.+FFI calls can be made concurrently, but events are handled sequentially.  -} --- | Start server for GUI sessions.-startGUI-    :: Config               -- ^ Server configuration.-    -> (Window -> UI ())    -- ^ Action to run whenever a client browser connects.-    -> IO ()-startGUI config handler = Core.serve config (\w -> runUI w $ handler w)----- | Make a local file available as a relative URI.-loadFile-    :: String     -- ^ MIME type-    -> FilePath   -- ^ Local path to the file-    -> UI String  -- ^ Generated URI-loadFile mime path = askWindow >>= \w -> liftIO $-    Core.loadFile w (fromString mime) path---- | Make a local directory available as a relative URI.-loadDirectory :: FilePath -> UI String-loadDirectory path = askWindow >>= \w -> liftIO $-    Core.loadDirectory w path-- {------------------------------------------------------------------------------    UI monad-------------------------------------------------------------------------------}-{- |--User interface elements are created and manipulated in the 'UI' monad.--This monad is essentially just a thin wrapper around the familiar 'IO' monad.-Use the 'liftIO' function to access 'IO' operations like reading-and writing from files.--There are several subtle reasons why Threepenny-uses a custom 'UI' monad instead of the standard 'IO' monad:--* More convenience when calling JavaScript.-The monad keeps track of a browser 'Window' context-in which JavaScript function calls are executed.--* Recursion for functional reactive programming.---}-newtype UI a = UI { unUI :: Monad.RWST Window [IO ()] () IO a }-    deriving (Typeable)--instance Functor UI where-    fmap f = UI . fmap f . unUI--instance Applicative UI where-    pure  = return-    (<*>) = ap--instance Monad UI where-    return  = UI . return-    m >>= k = UI $ unUI m >>= unUI . k--instance MonadIO UI where-    liftIO = UI . liftIO--instance MonadFix UI where-    mfix f = UI $ mfix (unUI . f)  ---- | Execute an 'UI' action in a particular browser window.--- Also runs all scheduled 'IO' action.-runUI :: Window -> UI a -> IO a-runUI window m = do-    (a, _, actions) <- Monad.runRWST (unUI m) window ()-    sequence_ actions-    return a---- | Retrieve current 'Window' context in the 'UI' monad.-askWindow :: UI Window-askWindow = UI Monad.ask---- | Schedule an 'IO' action to be run later.-liftIOLater :: IO () -> UI ()-liftIOLater x = UI $ Monad.tell [x]--{-----------------------------------------------------------------------------     Browser window ------------------------------------------------------------------------------} -- | Title of the client window.@@ -200,60 +94,24 @@ title = mkWriteAttr $ \s _ ->     runFunction $ ffi "document.title = %1;" s --- | Cookies on the client.-cookies :: ReadAttr Window [(String,String)]-cookies = mkReadAttr (liftIO . Core.getRequestCookies)- {------------------------------------------------------------------------------    Elements+    DOM Elements ------------------------------------------------------------------------------}-data Element = Element { eEvents :: Core.Events, toElement :: Core.Element }-    deriving (Typeable)--fromElement :: Core.Element -> IO Element-fromElement e = do-    events <- Core.withElementData e $ \_ x -> return $ elEvents x -    return $ Element events e--instance ToJS Element where-    render = render . toElement---- | Make a new DOM element.-mkElement-    :: String           -- ^ Tag name-    -> UI Element-mkElement tag = mdo-    -- create events and initialize them when element becomes Alive-    let initializeEvent (name,_,handler) = Core.bind name el handler-    events  <- liftIO $ newEventsNamed initializeEvent-    -    window  <- askWindow-    el      <- liftIO $ Core.newElement window tag events-    return $ Element events el---- | Retrieve the browser 'Window' in which the element resides.-getWindow :: Element -> IO Window-getWindow e = Core.getWindow (toElement e)---- | Delete the given element.-delete :: Element -> UI ()-delete = liftIO . Core.delete . toElement- -- | Append DOM elements as children to a given element. (#+) :: UI Element -> [UI Element] -> UI Element (#+) mx mys = do     x  <- mx     ys <- sequence mys-    liftIO $ mapM_ (Core.appendElementTo (toElement x) . toElement) ys+    mapM_ (Core.appendChild x) ys     return x  -- | Child elements of a given element. children :: WriteAttr Element [Element] children = mkWriteAttr set     where-    set xs x = liftIO $ do-        Core.emptyEl $ toElement x-        mapM_ (Core.appendElementTo (toElement x) . toElement) xs+    set xs x = do+        Core.clearChildren x+        mapM_ (Core.appendChild x) xs  -- | Child elements of a given element as a HTML string. html :: WriteAttr Element String@@ -278,13 +136,6 @@     get   el = callFunction $ ffi "$(%1).val()" el     set v el = runFunction  $ ffi "$(%1).val(%2)" el v --- | Get values from inputs. Blocks. This is faster than many 'getValue' invocations.-getValuesList-    :: [Element]   -- ^ A list of elements to get the values of.-    -> UI [String] -- ^ The list of plain text values.-getValuesList = mapM (get value)-    -- TODO: improve this to use Core.getValuesList- -- | Text content of an element. text :: WriteAttr Element String text = mkWriteAttr $ \s el ->@@ -294,82 +145,40 @@ string :: String -> UI Element string s = mkElement "span" # set text s - -- | Get the head of the page. getHead :: Window -> UI Element-getHead w = liftIO $ fromElement =<< Core.getHead w+getHead _ = fromJSObject =<< callFunction (ffi "document.head")  -- | Get the body of the page. getBody :: Window -> UI Element-getBody w = liftIO $ fromElement =<< Core.getBody w+getBody _ = fromJSObject =<< callFunction (ffi "document.body") --- | Get all elements of the given tag name.  Blocks.+-- | Get all elements of the given tag name. getElementsByTagName     :: Window        -- ^ Browser window     -> String        -- ^ The tag name.     -> UI [Element]  -- ^ All elements with that tag name.-getElementsByTagName window name = liftIO $-    mapM fromElement =<< Core.getElementsByTagName window name+getElementsByTagName _ tag =+    mapM fromJSObject =<< callFunction (ffi "document.getElementsByTagName(%1)" tag) --- | Get an element by a particular ID.  Blocks.+-- | Get an element by a particular ID.+--+-- FIXME: Misleading type, throws a JavaScript exception when element not found. getElementById     :: Window              -- ^ Browser window     -> String              -- ^ The ID string.     -> UI (Maybe Element)  -- ^ Element (if any) with given ID.-getElementById window id = liftIO $-    fmap listToMaybe $ mapM fromElement =<< Core.getElementsById window [id]+getElementById _ id = do+    x <- fromJSObject =<< callFunction (ffi "document.getElementById(%1)" id)+    return $ Just x --- | Get a list of elements by particular class.  Blocks.+-- | Get a list of elements by particular class. getElementsByClassName     :: Window        -- ^ Browser window     -> String        -- ^ The class string.     -> UI [Element]  -- ^ Elements with given class.-getElementsByClassName window cls = liftIO $-    mapM fromElement =<< Core.getElementsByClassName window cls---{------------------------------------------------------------------------------    FFI-------------------------------------------------------------------------------}--- | Run the given JavaScript function and carry on. Doesn't block.------ The client window uses JavaScript's @eval()@ function to run the code.-runFunction :: JSFunction () -> UI ()-runFunction fun = do-    window <- askWindow-    liftIO $ Core.runFunction window fun ---- | Run the given JavaScript function and wait for results. Blocks.------ The client window uses JavaScript's @eval()@ function to run the code.-callFunction :: JSFunction a -> UI a-callFunction fun = do-    window <- askWindow-    liftIO $ Core.callFunction window fun---- | Export the given Haskell function so that it can be called--- from JavaScript code.------ TODO: At the moment, the function is not garbage collected.-ffiExport :: IO () -> UI (HsFunction (IO ()))-ffiExport fun = do-    window <- askWindow-    liftIO $ Core.newHsFunction window fun--{------------------------------------------------------------------------------    Oddball-------------------------------------------------------------------------------}--- | Print a message on the client console if the client has debugging enabled.-debug :: String -> UI ()-debug s = askWindow >>= \w -> liftIO $ Core.debug w s---- | Invoke the JavaScript expression @audioElement.play();@.-audioPlay :: Element -> UI ()-audioPlay el = runFunction $ ffi "%1.play()" el---- | Invoke the JavaScript expression @audioElement.stop();@.-audioStop :: Element -> UI ()-audioStop el = runFunction $ ffi "prim_audio_stop(%1)" el+getElementsByClassName window s =+    mapM fromJSObject =<< callFunction (ffi "document.getElementsByClassName(%1)" s)  {-----------------------------------------------------------------------------     Layout@@ -417,26 +226,6 @@ {-----------------------------------------------------------------------------     Events ------------------------------------------------------------------------------}--- | Obtain DOM event for a given element.-domEvent-    :: String-        -- ^ Event name. A full list can be found at-        --   <http://www.w3schools.com/jsref/dom_obj_event.asp>.-        --   Note that the @on@-prefix is not included,-        --   the name is @click@ and so on.-    -> Element          -- ^ Element where the event is to occur.-    -> Event EventData-domEvent name (Element events _) = events name----- | Event that occurs whenever the client has disconnected,--- be it by closing the browser window or by exception.------ Note: DOM Elements in the browser window that has been closed--- can no longer be manipulated.-disconnect :: Window -> Event ()-disconnect = Core.disconnect- -- | Convenience function to register 'Event's for 'Element's. -- -- Example usage.@@ -461,7 +250,6 @@     window <- askWindow     liftIO $ Reactive.onChange b (void . runUI window . f) - {-----------------------------------------------------------------------------     Attributes ------------------------------------------------------------------------------}@@ -557,7 +345,7 @@     get   el = fmap from $ callFunction $ ffi "$(%1).prop(%2)" el name  -- | Turn a JavaScript object property @.prop = ...@ into an attribute.-fromObjectProperty :: (ToJS a, FFI (JSFunction a)) => String -> Attr Element a+fromObjectProperty :: (FromJS a, ToJS a, FFI (JSFunction a)) => String -> Attr Element a fromObjectProperty name = mkReadWriteAttr get set     where     set v el = runFunction  $ ffi ("%1." ++ name ++ " = %2") el v    @@ -573,7 +361,6 @@ instance Widget Element where     getElement = id - -- | Convience synonym for 'return' to make elements work well with 'set'. -- Also works on 'Widget's. --@@ -587,4 +374,3 @@ -- | Convience synonym for 'return' to make widgets work well with 'set'. widget  :: Widget w => w -> UI w widget  = return-

@@ -70,11 +70,10 @@ -- Change this to 'Maybe String' instead. type DragData = String --withDragData = fmap extract+withDragData = fmap (extract . unsafeFromJSON)     where-    extract (EventData [Just s]) = s-    extract _                    = ""+    extract [s] = s+    extract _   = ""  -- | Occurs periodically while the element is being dragged around. drag :: Element -> Event DragData

@@ -13,7 +13,7 @@     dterm, emphasize, fieldset, font, form, frame, frameset,     h1, h2, h3, h4, h5, h6, header, hr,     img, image, input, italics,-    keyboard, legend, li, link, map, meta, noframes, olist, option,+    keyboard, label, legend, li, link, map, meta, noframes, olist, option,     p, paragraph, param, pre,     sample, select, small, source, span, strong, sub, sup,     table, td, textarea, th, thebase,@@ -101,6 +101,7 @@ input               = itag "input" italics             =  tag "i" keyboard            =  tag "kbd"+label               =  tag "label" legend              =  tag "legend" li                  =  tag "li" link                =  tag "link"

@@ -57,7 +57,8 @@ mousemove = fmap readCoordinates . domEvent "mousemove"  readCoordinates :: EventData -> (Int,Int)-readCoordinates (EventData (Just x:Just y:_)) = (read x, read y)+readCoordinates json = (x,y)+    where [x,y] = unsafeFromJSON json  -- | Mouse down event. -- The mouse coordinates are relative to the element. @@ -86,10 +87,8 @@  -- | Key pressed while element has focus. keydown :: Element -> Event KeyCode-keydown = fmap read1  . domEvent "keydown"+keydown = fmap unsafeFromJSON . domEvent "keydown"  -- | Key released while element has focus. keyup :: Element -> Event KeyCode-keyup   = fmap read1 . domEvent "keyup"--read1 (EventData (Just s:_)) = read s+keyup   = fmap unsafeFromJSON . domEvent "keyup"

@@ -0,0 +1,281 @@+{-# LANGUAGE DeriveDataTypeable #-}+module Graphics.UI.Threepenny.Internal (+    -- * Synopsis+    -- | Internal core:+    -- 'UI' monad, integrating FRP and JavaScript FFI. garbage collection+   +    -- * Documentation+    Window, disconnect,+    startGUI,+    +    UI, runUI, liftIOLater, askWindow,+    +    FFI, FromJS, ToJS, JSFunction, JSObject, ffi,+    runFunction, callFunction, ffiExport, debug,+    +    Element, fromJSObject, getWindow,+    mkElementNamespace, mkElement, delete, appendChild, clearChildren,+    +    EventData, domEvent, unsafeFromJSON,+    ) where++import           Control.Applicative                   (Applicative)+import           Control.Monad+import           Control.Monad.Fix+import           Control.Monad.IO.Class+import qualified Control.Monad.Trans.RWS.Lazy as Monad+import           Data.Dynamic                          (Typeable)++import qualified Data.Aeson              as JSON+import qualified Foreign.JavaScript      as JS+import qualified Foreign.RemotePtr       as Foreign++import qualified Reactive.Threepenny     as E++import Foreign.JavaScript hiding (runFunction, callFunction, debug, Window)++{-----------------------------------------------------------------------------+    Custom Window type+------------------------------------------------------------------------------}+-- | The type 'Window' represents a browser window.+data Window = Window+    { jsWindow    :: JS.Window  -- JavaScript window+    , eDisconnect :: E.Event () -- event that happens when client disconnects+    , wEvents     :: Foreign.Vendor Events -- events associated to 'Element's+    }++-- | Start server for GUI sessions.+startGUI+    :: Config               -- ^ Server configuration.+    -> (Window -> UI ())    -- ^ Action to run whenever a client browser connects.+    -> IO ()+startGUI config init = JS.serve config $ \w -> do+    -- set up disconnect event+    (eDisconnect, handleDisconnect) <- E.newEvent+    JS.onDisconnect w $ handleDisconnect ()++    -- make window+    wEvents <- Foreign.newVendor+    let window = Window+            { jsWindow    = w+            , eDisconnect = eDisconnect+            , wEvents     = wEvents+            }++    -- run initialization+    runUI window $ init window++-- | Event that occurs whenever the client has disconnected,+-- be it by closing the browser window or by exception.+--+-- Note: DOM Elements in a browser window that has been closed+-- can no longer be manipulated.+disconnect :: Window -> E.Event ()+disconnect = eDisconnect++{-----------------------------------------------------------------------------+    Elements+------------------------------------------------------------------------------}+type Events = String -> E.Event JSON.Value++data Element = Element+    { toJSObject  :: JS.JSObject -- corresponding JavaScript object+    , elEvents    :: Events      -- FRP event mapping+    , elWindow    :: Window      -- Window in which the element was created+    } deriving (Typeable)++instance ToJS Element where+    render = render . toJSObject++getWindow :: Element -> IO Window+getWindow = return . elWindow++-- | Convert JavaScript object into an element.+--+-- FIXME: For the purpose of garbage collection, this element+-- will always be reachable from the root.+fromJSObject :: JS.JSObject -> UI Element+fromJSObject el = do+    window <- askWindow+    liftIO $ do+        Foreign.addReachable (JS.root $ jsWindow window) el+        events <- getEvents el window+        return $ Element el events window++-- | Add lazy FRP events to a JavaScript object.+addEvents :: JS.JSObject -> Window -> IO Events+addEvents el Window{ jsWindow = w, wEvents = wEvents } = do+    -- Lazily create FRP events whenever they are needed.+    let initializeEvent (name,_,handler) = do+            handlerPtr <- JS.exportHandler w handler+            -- make handler reachable from element+            Foreign.addReachable el handlerPtr+            JS.runFunction w $+                ffi "Haskell.bind(%1,%2,%3)" el name handlerPtr++    events <- E.newEventsNamed initializeEvent++    -- Create new pointer and add reachability.+    Foreign.withRemotePtr el $ \coupon _ -> do+        ptr <- Foreign.newRemotePtr coupon events wEvents+        Foreign.addReachable el ptr++    return events++-- | Lookup or create lazy events for an a JavaScript object.+getEvents :: JS.JSObject -> Window -> IO Events+getEvents el window@Window{ wEvents = wEvents } = do+    Foreign.withRemotePtr el $ \coupon _ -> do+        mptr <- Foreign.lookup coupon wEvents+        case mptr of+            Nothing -> addEvents el window+            Just p  -> Foreign.withRemotePtr p $ \_ -> return++-- | Events may carry data. At the moment, they may return+-- a single JSON value, as defined in the "Data.Aeson" module.+type EventData = JSON.Value++-- | Convert event data to a Haskell value.+-- Throws an exception when the data cannot be converted.+unsafeFromJSON :: JSON.FromJSON a => EventData -> a+unsafeFromJSON x = let JSON.Success y = JSON.fromJSON x in y++-- | Obtain DOM event for a given element.+domEvent+    :: String+        -- ^ Event name. A full list can be found at+        --   <http://www.w3schools.com/jsref/dom_obj_event.asp>.+        --   Note that the @on@-prefix is not included,+        --   the name is @click@ and so on.+    -> Element          -- ^ Element where the event is to occur.+    -> E.Event EventData+domEvent name el = elEvents el name++-- | Make a new DOM element with a given tag name.+mkElement :: String -> UI Element+mkElement = mkElementNamespace Nothing++-- | Make a new DOM element with a namespace and a given tag name.+--+-- A namespace 'Nothing' corresponds to the default HTML namespace.+mkElementNamespace :: Maybe String -> String -> UI Element+mkElementNamespace namespace tag = do+    window <- askWindow+    let w = jsWindow window+    liftIO $ do+        el <- JS.callFunction w $ case namespace of+            Nothing -> ffi "document.createElement(%1)" tag+            Just ns -> ffi "document.createElementNS(%1,%2)" ns tag+        events <- getEvents el window+        return $ Element el events window++-- | Delete the given element.+delete :: Element -> UI ()+delete el = liftJSWindow $ \w -> do+    JS.runFunction w $ ffi "$(%1).detach()" el+    Foreign.destroy $ toJSObject el++-- | Remove all child elements.+clearChildren :: Element -> UI ()+clearChildren (Element el _ _) = liftJSWindow $ \w -> do+    Foreign.withRemotePtr el $ \_ _ -> do+        Foreign.clearReachable el+        JS.runFunction w $ ffi "$(%1).contents().detach()" el++-- | Append a child element.+appendChild :: Element -> Element -> UI ()+appendChild (Element eParent _ _) (Element eChild _ _) = liftJSWindow $ \w -> do+    -- FIXME: We have to stop the child being reachable from its+    -- /previous/ parent.+    Foreign.addReachable eParent eChild+    JS.runFunction w $ ffi "$(%1).append($(%2))" eParent eChild+++{-----------------------------------------------------------------------------+    UI monad+------------------------------------------------------------------------------}+{- |++User interface elements are created and manipulated in the 'UI' monad.++This monad is essentially just a thin wrapper around the familiar 'IO' monad.+Use the 'liftIO' function to access 'IO' operations like reading+and writing from files.++There are several subtle reasons why Threepenny+uses a custom 'UI' monad instead of the standard 'IO' monad:++* More convenience when calling JavaScript.+The monad keeps track of a browser 'Window' context+in which JavaScript function calls are executed.++* Recursion for functional reactive programming.++-}+newtype UI a = UI { unUI :: Monad.RWST Window [IO ()] () IO a }+    deriving (Typeable)++liftJSWindow :: (JS.Window -> IO a) -> UI a+liftJSWindow f = askWindow >>= liftIO . f . jsWindow++instance Functor UI where+    fmap f = UI . fmap f . unUI++instance Applicative UI where+    pure  = return+    (<*>) = ap++instance Monad UI where+    return  = UI . return+    m >>= k = UI $ unUI m >>= unUI . k++instance MonadIO UI where+    liftIO = UI . liftIO++instance MonadFix UI where+    mfix f = UI $ mfix (unUI . f)  ++-- | Execute an 'UI' action in a particular browser window.+-- Also runs all scheduled 'IO' actions.+runUI :: Window -> UI a -> IO a+runUI window m = do+    (a, _, actions) <- Monad.runRWST (unUI m) window ()+    sequence_ actions+    return a++-- | Retrieve current 'Window' context in the 'UI' monad.+askWindow :: UI Window+askWindow = UI Monad.ask++-- | Schedule an 'IO' action to be run later.+liftIOLater :: IO () -> UI ()+liftIOLater x = UI $ Monad.tell [x]++{-----------------------------------------------------------------------------+    FFI+------------------------------------------------------------------------------}+-- | Run the given JavaScript function and carry on. Doesn't block.+--+-- The client window uses JavaScript's @eval()@ function to run the code.+runFunction :: JSFunction () -> UI ()+runFunction fun = liftJSWindow $ \w -> JS.runFunction w fun++-- | Run the given JavaScript function and wait for results. Blocks.+--+-- The client window uses JavaScript's @eval()@ function to run the code.+callFunction :: JSFunction a -> UI a+callFunction fun = liftJSWindow $ \w -> JS.callFunction w fun++-- | Export the given Haskell function so that it can be called+-- from JavaScript code.+--+-- FIXME: At the moment, the function is not garbage collected.+ffiExport :: JS.IsHandler a => a -> UI JSObject+ffiExport fun = liftJSWindow $ \w -> do+    handlerPtr <- JS.exportHandler w fun+    Foreign.addReachable (JS.root w) handlerPtr+    return handlerPtr++-- | Print a message on the client console if the client has debugging enabled.+debug :: String -> UI ()+debug s = liftJSWindow $ \w -> JS.debug w s

@@ -1,682 +0,0 @@-{-# LANGUAGE CPP, PackageImports #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecursiveDo #-}-{-# OPTIONS -fno-warn-name-shadowing #-}--module Graphics.UI.Threepenny.Internal.Driver-  (-  -- * Synopsis-  -- | The main internal functionality.-      -  -- * Server running-   serve-  ,loadFile-  ,loadDirectory--  -- * Elements-  ,newElement-  ,appendElementTo-  ,emptyEl-  ,delete-  -  -- * Event handling-  -- $eventhandling-  ,bind-  ,disconnect-  ,module Reactive.Threepenny- -  -- * Querying-  -- $querying-  ,getHead-  ,getBody-  ,getElementsByTagName-  ,getElementsById-  ,getElementsByClassName-  ,getWindow-  ,getValuesList-  ,getRequestCookies-  ,getRequestLocation-  -  -- * Utilities-  ,debug-  ,atomic--  -- * JavaScript FFI-  ,ToJS, FFI, ffi, JSFunction-  ,runFunction, callFunction-  ,newHsFunction-  -  -- * Types-  ,Window-  ,Element-  ,Config(..)-  ,EventData(..)-  ) where----import           Control.Applicative-import           Control.Concurrent-import           Control.Concurrent.Chan.Extra-import           Control.Concurrent.Delay-import           Control.DeepSeq-import qualified Control.Exception-import           Control.Monad-import           Control.Monad.IO.Class-import qualified "MonadCatchIO-transformers" Control.Monad.CatchIO as E-import           Data.ByteString               (ByteString)-import           Data.ByteString.UTF8          (toString,fromString)-import           Data.Map                      (Map)-import qualified Data.Map                      as M-import           Data.Maybe-import           Data.Text                     (Text,pack,unpack)-import qualified Data.Text                     as Text-import           Data.Text.Encoding            as Text-import           Data.Time-import           Network.URI-import qualified Network.WebSockets            as WS-import qualified Network.WebSockets.Snap       as WS-import qualified Data.Attoparsec.Enumerator    as Atto-import           Prelude                       hiding (init)-import           Safe-import           Snap.Core-import qualified Snap.Http.Server              as Snap-import           Snap.Util.FileServe-import           System.Environment            (getEnvironment)-import           System.FilePath--import qualified Data.Aeson                    as JSON-import           Data.Aeson                    (Result(..))-import qualified Data.ByteString.Lazy.Char8    as LBS-import           Data.Data--import           Graphics.UI.Threepenny.Internal.Types     as Threepenny-import           Graphics.UI.Threepenny.Internal.Resources-import           Graphics.UI.Threepenny.Internal.FFI-import           Reactive.Threepenny--import qualified Foreign.Coupon as Foreign-import qualified System.Mem--{------------------------------------------------------------------------------    Import #ifdefs-------------------------------------------------------------------------------}-#if defined(CABAL) || defined(FPCOMPLETE)-#if MIN_VERSION_bytestring(0,10,0)-fromStrictBS = LBS.fromStrict-#else-fromStrictBS = LBS.fromChunks . (:[])-#endif-#else-fromStrictBS = LBS.fromStrict-#endif--{------------------------------------------------------------------------------    Server and and session management-------------------------------------------------------------------------------}-newServerState :: IO ServerState-newServerState = ServerState -    <$> newMVar M.empty-    <*> newMVar (0,M.empty)-    <*> newMVar (0,M.empty)---- | Run a TP server with Snap on the specified port and the given---   worker action.-serve :: Config -> (Session -> IO ()) -> IO ()-serve Config{..} worker = do-    env    <- getEnvironment-    let portEnv = Safe.readMay =<< Prelude.lookup "PORT" env-    let addrEnv = Safe.readMay =<< Prelude.lookup "ADDR" env-    -    server <- newServerState-    _      <- forkIO $ custodian 30 (sSessions server)-    let config = Snap.setPort      (maybe defaultPort id (tpPort `mplus` portEnv))-               $ Snap.setBind      (maybe defaultAddr id (tpAddr `mplus` addrEnv))-               $ Snap.setErrorLog  (Snap.ConfigIoLog tpLog)-               $ Snap.setAccessLog (Snap.ConfigIoLog tpLog)-               $ Snap.defaultConfig-    Snap.httpServe config . route $-        routeResources tpCustomHTML tpStatic server-        -- ++ routeCommunication worker server-        ++ routeWebsockets worker server---- | Kill sessions after at least n seconds of disconnectedness.-custodian :: Integer -> MVar Sessions -> IO ()-custodian seconds sessions = forever $ do-  delaySeconds seconds-  modifyMVar_ sessions $ \sessions -> do-    killed <- fmap catMaybes $ forM (M.assocs sessions) $ \(key,Session{..}) -> do-      state <- readMVar sConnectedState-      case state of-        Connected -> return Nothing-        Disconnected time -> do-          now <- getCurrentTime-          let dcSeconds = diffUTCTime now time-          -- session is disconnected for more than  seconds-          if (dcSeconds > fromIntegral seconds)-             then do killThread sThreadId-                     return (Just key)-             else return Nothing-    -    -- remove killed sessions from the map-    return (M.filterWithKey (\k _ -> not (k `elem` killed)) sessions)---- Run a snap action with the given session.-withSession :: ServerState -> (Session -> Snap a) -> Snap a-withSession server cont = do-    token <- readInput "token"-    case token of-        Nothing    -> error $ "Invalid session token format."-        Just token -> withGivenSession token server cont---- Do something with the session given by its token id.-withGivenSession :: Integer -> ServerState -> (Session -> Snap a) -> Snap a-withGivenSession token ServerState{..} cont = do-    sessions <- liftIO $ withMVar sSessions return-    case M.lookup token sessions of-        Nothing      -> error $ "Nonexistant token: " ++ show token-        Just session -> cont session--{------------------------------------------------------------------------------    Implementation of two-way communication-    - POST and GET requests-------------------------------------------------------------------------------}--- | Route the communication between JavaScript and the server-routeCommunication :: (Session -> IO a) -> ServerState -> Routes-routeCommunication worker server =-    [("/init"   , init worker server)-    ,("/poll"   , withSession server poll  )-    ,("/signal" , withSession server signal)-    ]---- | Make a new session.-newSession :: ServerState -> (URI,[(String, String)]) -> Integer -> IO Session-newSession sServerState sStartInfo sToken = do-    sSignals          <- newChan-    sInstructions     <- newChan-    sMutex            <- newMVar ()-    sEventQuit        <- newEvent-    sPrizeBooth      <- Foreign.newPrizeBooth-    let sHeadElement  =  undefined -- filled in later-    let sBodyElement  =  undefined-    now               <- getCurrentTime-    sConnectedState   <- newMVar (Disconnected now)-    sThreadId         <- myThreadId-    sClosures         <- newMVar [0..]-    let session = Session {..}-    initializeElements session    ---- | Make a new session and add it to the server-createSession :: (Session -> IO void) -> ServerState -> Snap Session-createSession worker server = do-    -- uri    <- snapRequestURI-    let uri = undefined -- FIXME: No URI for WebSocket requests.-    params <- snapRequestCookies-    liftIO $ modifyMVar (sSessions server) $ \sessions -> do-        let newKey = maybe 0 (+1) (lastMay (M.keys sessions))-        session <- newSession server (uri,params) newKey-        _       <- forkIO $ void $ worker session >> handleEvents session-        return (M.insert newKey session sessions, session)---- | Respond to initialization request.-init :: (Session -> IO void) -> ServerState -> Snap ()-init worker server = do-    session <- createSession worker server-    modifyResponse . setHeader "Set-Token" . fromString . show . sToken $ session-    poll session--snapRequestURI :: Snap URI-snapRequestURI = do-    uri     <- getInput "info"-    maybe (error ("Unable to parse request URI: " ++ show uri)) return (uri >>= parseURI)--snapRequestCookies :: Snap [(String, String)]-snapRequestCookies = do-    cookies <- getsRequest rqCookies-    return $ flip map cookies $ \Cookie{..} -> (toString cookieName,toString cookieValue)----- | Respond to poll requests.-poll :: Session -> Snap ()-poll Session{..} = do-    let-        setDisconnected = do-            now <- getCurrentTime-            modifyMVar_ sConnectedState (const (return (Disconnected now)))-    -    instructions <- liftIO $ do-        modifyMVar_ sConnectedState (const (return Connected))-        threadId <- myThreadId-        forkIO $ do-            delaySeconds $ 60 * 5 -- Force kill after 5 minutes.-            killThread threadId-        E.catch (readAvailableChan sInstructions) $ \e -> do-            -- no instructions available after some time-            when (e == Control.Exception.ThreadKilled) $ setDisconnected-            E.throw e-    -    writeJson instructions---- | Handle signals sent from the client.-signal :: Session -> Snap ()-signal Session{..} = do-    input <- getParam "signal"-    let err = error $ "Unable to parse " ++ show input-    case JSON.decode . LBS.fromChunks . return =<< input of-        Just    signal -> liftIO $ writeChan sSignals signal-        Nothing        -> err--{------------------------------------------------------------------------------    Implementation of two-way communication-    - WebSockets-------------------------------------------------------------------------------}--- | Route the communication between JavaScript and the server-routeWebsockets :: (Session -> IO a) -> ServerState -> Routes-routeWebsockets worker server =-    [("websocket", response)]-    where-    response = do-        session <- createSession worker server-        WS.runWebSocketsSnap (webSocket session)-        error "Threepenny.Internal.Core: runWebSocketsSnap should never return."---webSocket :: Session -> WS.PendingConnection -> IO ()-webSocket Session{..} request = void $ do-    connection <- WS.acceptRequest request-    -- websockets are always connected, don't let the custodian kill you.-    modifyMVar_ sConnectedState (const (return Connected))--    -- write data (in another thread)-    sendData <- forkIO . forever $ do-        x <- readChan sInstructions-        -- see note [Instruction strictness]-        WS.sendTextData connection . JSON.encode $ x--    -- read data-    let readData = do-            input <- WS.receiveData connection-            case input of-                "ping" -> WS.sendTextData connection . LBS.pack $ "pong"-                "quit" -> E.throw WS.ConnectionClosed-                input  -> case JSON.decode input of-                    Just signal -> writeChan sSignals signal-                    Nothing     -> E.throw $ Atto.ParseError [] $-                        "Threepenny.Internal.Core: Couldn't parse 'Signal' "-                        ++ show input-    -    forever readData `E.finally`-        (do-            killThread sendData             -- kill sending thread when done-            writeChan sSignals $ Quit ()    -- signal  Quit  event-        )--{- note [Instruction strictness]--The  Instruction  may contain components that evaluate to _|_.-An exception will be thrown when we try to send one of those to the browser.-However, the  WS.sendSink  function is called in a different thread-than where the faulty instruction was constructed.-We want to throw an exception in the latter thread.-Hence, we make sure that the  Instruction  is fully evaluated (deepseq)-before passing it to the thread that sends it to the web browser.--(Another, probably preferred, solution would be to make the  Instruction-data type fully strict by default.)---}----{------------------------------------------------------------------------------    FFI implementation on top of the communication channel-------------------------------------------------------------------------------}--- | Atomically execute the given computation in the context of a browser window-atomic :: Window -> IO a -> IO a-atomic window@(Session{..}) m = do-  takeMVar sMutex-  ret <- m-  putMVar sMutex ()-  return ret---- | Send an instruction and read the signal response.-call :: Session -> Instruction -> (Signal -> IO (Maybe a)) -> IO a-call session@(Session{..}) instruction withSignal = do-  -- see note [Instruction strictness]-  Control.Exception.evaluate $ force instruction-  takeMVar sMutex-  writeChan sInstructions instruction-  newChan <- dupChan sSignals-  go sMutex newChan--  where-    go mutex newChan = do-      signal <- readChan newChan-      result <- withSignal signal-      case result of-        Just signal -> do putMVar mutex ()-                          return signal-        Nothing     -> go mutex newChan-            -- keep reading signals from the duplicated channel-            -- until the function above succeeds---- Run the given instruction wihtout waiting for a response.-run :: Session -> Instruction -> IO ()-run (Session{..}) instruction =-    writeChan sInstructions $!! instruction  -- see note [Instruction strictness]---- | Run the given JavaScript function and carry on. Doesn't block.------ The client window uses JavaScript's @eval()@ function to run the code.-runFunction :: Window -> JSFunction () -> IO ()-runFunction session = run session . RunJSFunction . toCode---- | Run the given JavaScript function and wait for results. Blocks.------ The client window uses JavaScript's @eval()@ function to run the code.-callFunction :: Window -> JSFunction a -> IO a-callFunction window jsfunction = -    call window (CallJSFunction . toCode $ jsfunction) $ \signal ->-        case signal of-            FunctionResult v -> case marshalResult jsfunction window v of-                Success a -> return $ Just a-                Error   _ -> return Nothing-            _ -> return Nothing---- | Package a Haskell function such that it can be called from JavaScript.------ At the moment, we implement this as an event handler that is--- attached to the @head@ element. In particular, it is not garbage--- collected as long as the head element is alive.-newHsFunction-    :: Window       -- ^ Browser window context-    -> IO ()        -- ^ Haskell function-    -> IO (HsFunction (IO ()))-newHsFunction window@(Session{..}) fun = do-    cid <- modifyMVar sClosures $ \(x:xs) -> return (xs,x)-    let eventId = "callback-" ++ show cid-    attachClosure sHeadElement eventId (const $ fun)-    return $ HsFunction (unprotectedGetElementId sHeadElement) eventId---{------------------------------------------------------------------------------    Snap utilities-------------------------------------------------------------------------------}--- Write JSON to output.-writeJson :: (MonadSnap m, JSON.ToJSON a) => a -> m ()-writeJson json = do-    modifyResponse $ setContentType "application/json"-    writeLBS . JSON.encode $ json---- Get a text input from snap.-getInput :: (MonadSnap f) => ByteString -> f (Maybe String)-getInput = fmap (fmap (unpack . Text.decodeUtf8)) . getParam---- Read an input from snap.-readInput :: (MonadSnap f,Read a) => ByteString -> f (Maybe a)-readInput = fmap (>>= readMay) . getInput--{------------------------------------------------------------------------------    Resourcse-------------------------------------------------------------------------------}-type Routes = [(ByteString, Snap ())]--routeResources :: Maybe FilePath -> Maybe FilePath -> ServerState -> Routes-routeResources customHTML staticDir server =-    fixHandlers noCache $-        static ++-        [("/"                          , root)-        ,("/driver/threepenny-gui.js"  , writeText jsDriverCode )-        ,("/driver/threepenny-gui.css" , writeText cssDriverCode)-        ,("/file/:name"                ,-            withFilepath (sFiles server) (flip serveFileAs))-        ,("/dir/:name"                 ,-            withFilepath (sDirs  server) (\path _ -> serveDirectory path))-        ]-    where-    fixHandlers f routes = [(a,f b) | (a,b) <- routes]-    noCache h = modifyResponse (setHeader "Cache-Control" "no-cache") >> h-    -    static = maybe [] (\dir -> [("/static", serveDirectory dir)]) staticDir-    -    root = case customHTML of-        Just file -> case staticDir of-            Just dir -> serveFile (dir </> file)-            Nothing  -> logError "Graphics.UI.Threepenny: Cannot use tpCustomHTML file without tpStatic"-        Nothing   -> writeText defaultHtmlFile----- Get a filename from a URI-withFilepath :: MVar Filepaths -> (FilePath -> MimeType -> Snap a) -> Snap a-withFilepath rDict cont = do-    mName    <- getParam "name"-    (_,dict) <- liftIO $ withMVar rDict return-    case (\key -> M.lookup key dict) =<< mName of-        Just (path,mimetype) -> cont path mimetype-        Nothing              -> error $ "File not loaded: " ++ show mName---- FIXME: Serving large files fails with the exception--- System.SendFile.Darwin: invalid argument (Socket is not connected)---newAssociation :: MVar Filepaths -> (FilePath, MimeType) -> IO String-newAssociation rDict (path,mimetype) = do-    (old, dict) <- takeMVar rDict-    let new = old + 1; key = show new ++ takeFileName path-    putMVar rDict $ (new, M.insert (fromString key) (path,mimetype) dict)-    return key---- | Begin to serve a local file under an URI.-loadFile :: Session -> MimeType -> FilePath -> IO String-loadFile Session{..} mimetype path = do-    key <- newAssociation (sFiles sServerState) (path,mimetype)-    return $ "/file/" ++ key---- | Begin to serve a local directory under an URI.-loadDirectory :: Session -> FilePath -> IO String-loadDirectory Session{..} path = do-    key <- newAssociation (sDirs sServerState) (path,"")-    return $ "/dir/" ++ key---{------------------------------------------------------------------------------    Elements-        Creation, Management, Finalization-------------------------------------------------------------------------------}--- | Create a new element of the given tag name.-newElement :: Window        -- ^ Browser window in which context to create the element-           -> String        -- ^ The tag name.-           -> Events        -- ^ Events associated to that element.-           -> IO Element    -- ^ A tag reference. Non-blocking.-newElement elSession@(Session{..}) elTagName elEvents = do-    elHandlers <- newMVar M.empty-    el         <- Foreign.newItem sPrizeBooth ElementData{..}-    Foreign.addFinalizer el $ delete el-        -- FIXME: Do not try to delete elements from the session when-        -- the session is broken/disconnected already.-        -- A fix should be part of the  run  function, though.-    return el---- | Get 'Window' associated to an 'Element'.-getWindow :: Element -> IO Window-getWindow e = withElement e $ \_ window -> return window---- | Look up several elements in the browser window.-lookupElements :: Session -> [ElementId] -> IO [Element]-lookupElements window = mapM (flip lookupElement window)---- | Append a child element to a parent element. Non-blocking.-appendElementTo-    :: Element     -- ^ Parent.-    -> Element     -- ^ Child.-    -> IO ()-appendElementTo eParent eChild =-    -- TODO: Right now, parent and child need to be from the same session/browser window-    --       Implement transfer of elements across browser windows-    withElement eParent $ \parent session ->-    withElement eChild  $ \child  _       -> do-        Foreign.addReachable eParent eChild-        runFunction session $ ffi "$(%1).append($(%2))" parent child---- | Get the head of the page.-getHead :: Window -> IO Element-getHead session = return $ sHeadElement session---- | Get the body of the page.-getBody :: Window -> IO Element-getBody session = return $ sBodyElement session---- | Empty the given element.-emptyEl :: Element -> IO ()-emptyEl el = withElement el $ \elid window -> do-    Foreign.clearReachable el-    runFunction window $ ffi "$(%1).contents().detach()" elid---- | Delete the given element.-delete :: Element -> IO ()-delete el = withElement el $ \elid window ->-    run window $ Delete elid-    -- Note: We want a primitive 'Delete' here, because -    -- we do not want the implicit conversion from ElementId to element.---{------------------------------------------------------------------------------    Event handling-------------------------------------------------------------------------------}-{- $eventhandling--    To bind events to elements, use the 'bind' function.--    To handle DOM events, use the 'handleEvent' function, or the-    'handleEvents' function which will block forever.--    See the rest of this section for some helpful functions that do-    common binding, such as clicks, hovers, etc.--}---- | Handle events signalled from the client.-handleEvents :: Window -> IO ()-handleEvents window@(Session{..}) = do-    signal <- getSignal window-    case signal of-        Threepenny.Event elid eventId params -> do-            handleEvent1 window (elid,eventId,EventData params)-#ifdef REBUG-            -- debug garbage collection of elements:-            System.Mem.performGC-#endif-            handleEvents window-        Quit () -> do-            snd sEventQuit ()-            -- do not continue handling events-        _       -> do-            handleEvents window---- | Handle a single event.-handleEvent1 :: Window -> (ElementId, EventId, EventData) -> IO ()-handleEvent1 window (elid,eventId,params) = do-    el <- lookupElement elid window-    withElementData el $ \_ eldata -> do-        handlers <- readMVar $ elHandlers eldata-        case M.lookup eventId handlers of-            Just handler -> handler params-            Nothing      -> return ()---- Get the latest signal sent from the client.-getSignal :: Window -> IO Signal-getSignal (Session{..}) = readChan sSignals---- | Associate a new closure with an element.-attachClosure :: Element -> EventId -> Handler EventData -> IO () -attachClosure el eventId handler = withElementData el $ \_ eldata ->-    modifyMVar_ (elHandlers eldata) $ return .-        M.insertWith (\h1 h a -> h1 a >> h a) eventId handler---- | Bind an event handler for a dom event to an 'Element'.-bind-    :: EventId              -- ^ The eventType, see any DOM documentation for a list of these.-    -> Element              -- ^ The element to bind to.-    -> Handler EventData    -- ^ The event handler to bind.-    -> IO ()-bind eventId e handler = withElementData e $ \elid el -> do-    handlers <- readMVar $ elHandlers el-    -- register with client if it has never been registered on the server-    when (not $ eventId `M.member` handlers) $-        run (elSession el) $ Bind eventId elid-    -- register with server-    attachClosure e eventId handler---- | Register event handler that occurs when the client has disconnected.-disconnect :: Window -> Event ()-disconnect = fst . sEventQuit---- | Initialize the 'head' and 'body' elements when the session starts.-initializeElements :: Session -> IO Session-initializeElements session@(Session{..}) = do-        sHeadElement <- createElement "head"-        sBodyElement <- createElement "body"-        return $ Session{..}-    where-    newEvents     e   = newEventsNamed $ \(name,_,handler) -> bind name e handler-    createElement tag = mdo-        x <- newElement session tag =<< newEvents x-        return x--{------------------------------------------------------------------------------    Querying the DOM-------------------------------------------------------------------------------}--- $querying--- --- The DOM can be searched for elements of a given name, and nodes can--- be inspected for their values.---- | Get all elements of the given tag name. Blocks.-getElementsByTagName :: Window -> String -> IO [Element]-getElementsByTagName window tag = do-    elids <- callFunction window $ ffi "document.getElementsByTagName(%1)" tag-    lookupElements window elids---- | Get a list of elements by particular IDs.  Blocks.-getElementsById :: Window -> [String] -> IO [Element]-getElementsById window ids = do-    elids <- forM ids $ \x ->-        callFunction window $ ffi "[document.getElementById(%1)]" x-    lookupElements window $ concat elids---- | Get a list of elements by particular class.  Blocks.-getElementsByClassName :: Window -> String -> IO [Element]-getElementsByClassName window cls = do-    elids <- callFunction window $ ffi "document.getElementsByClassName(%1)" cls-    lookupElements window elids---- | Get values from inputs. Blocks. This is faster than many @getValue@ invocations.-getValuesList-    :: [Element]   -- ^ A list of elements to get the values of.-    -> IO [String] -- ^ The list of plain text values.-getValuesList []        = return []-getValuesList es@(e0:_) = withElement e0 $ \_ window -> do-    let elids  = map unprotectedGetElementId es-    call window (GetValues elids) $ \signal ->-        case signal of-            Values strs -> return $ Just strs-            _           -> return Nothing---- | Get the request location.-getRequestLocation :: Window -> IO URI-getRequestLocation = return . fst . sStartInfo---- | Get the request cookies.-getRequestCookies :: Window -> IO [(String,String)]-getRequestCookies = return . snd . sStartInfo--{------------------------------------------------------------------------------    Utilities-------------------------------------------------------------------------------}--- | Send a debug message to the client. The behaviour of the client---   is unspecified.-debug-    :: Window -- ^ Client window-    -> String -- ^ Some plain text to send to the client.-    -> IO ()-debug window = run window . Debug

@@ -1,167 +0,0 @@-{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Graphics.UI.Threepenny.Internal.FFI (-    -- * Synopsis-    -- | Combinators for creating JavaScript code and marhsalling.-    -    -- * Documentation-    ffi,-    FFI(..), ToJS(..),-    JSFunction, HsFunction,-    -    showJSON,-    -    toCode, marshalResult,-    ) where--import           Data.Aeson            as JSON-import qualified Data.Aeson.Types      as JSON-import qualified Data.Aeson.Encode-import           Data.ByteString       (ByteString)-import           Data.Data-import           Data.Functor-import           Data.Maybe-import           Data.String           (fromString)-import           Data.Text             (Text)-import qualified Data.Text.Lazy-import qualified Data.Text.Lazy.Builder--import Safe (atMay)--import Graphics.UI.Threepenny.Internal.Types--{------------------------------------------------------------------------------    Easy, if stupid conversion between String and JSON--    TODO: Use more efficient string types like ByteString, Text, etc.-------------------------------------------------------------------------------}-showJSON :: ToJSON a => a -> String-showJSON-    = Data.Text.Lazy.unpack-    . Data.Text.Lazy.Builder.toLazyText-    . Data.Aeson.Encode.fromValue . JSON.toJSON--{------------------------------------------------------------------------------    JavaScript Code and Foreign Function Interface-------------------------------------------------------------------------------}--- | JavaScript code snippet.-newtype JSCode = JSCode { unJSCode :: String }-    deriving (Eq, Ord, Show, Data, Typeable)---- | Helper class for rendering Haskell values as JavaScript expressions.-class ToJS a where-    render :: a -> JSCode--instance ToJS String     where render   = render . JSON.String . fromString-instance ToJS Text       where render   = render . JSON.String-instance ToJS Float      where render   = JSCode . showJSON-instance ToJS Double     where render   = JSCode . showJSON-instance ToJS Int        where render   = JSCode . show-instance ToJS Bool       where render b = JSCode $ if b then "true" else "false"-instance ToJS JSON.Value where render   = JSCode . showJSON--- TODO: ByteString instance may be wrong. Only needed for ElementId right now.-instance ToJS ByteString where render   = JSCode . show-instance ToJS ElementId  where-    render (ElementId x) = apply "elidToElement(%1)" [render x]-instance ToJS Element    where render = render . unprotectedGetElementId--- Haskell function with no parameters-instance ToJS (HsFunction (IO ())) where-    render (HsFunction (ElementId elid) name) =-        apply "callback(%1,%2)" [render elid, render name]----- | A JavaScript function with a given output type @a@.-data JSFunction a = JSFunction-    { code    :: JSCode                                  -- ^ code snippet-    , marshal :: Window -> JSON.Value -> JSON.Parser a-      -- ^ conversion to Haskell value-    }---- | Render function to a textual representation using JavaScript syntax.-toCode :: JSFunction a -> String-toCode = unJSCode . code---- | Convert function result to a Haskell value.-marshalResult-    :: JSFunction a   -- ^ Function that has been executed-    -> Window         -- ^ Browser context-    -> JSON.Value     -- ^ JSON representation of the return value -    -> JSON.Result a  -- ^ Function result as parsed Haskell value-marshalResult fun w = JSON.parse (marshal fun w)--instance Functor JSFunction where-    fmap f = fmapWindow (const f)--fmapWindow :: (Window -> a -> b) -> JSFunction a -> JSFunction b-fmapWindow f (JSFunction c m) = JSFunction c (\w v -> f w <$> m w v)--fromJSCode :: JSCode -> JSFunction ()-fromJSCode c = JSFunction { code = c, marshal = \_ _ -> return () }---- | Helper class for making 'ffi' a variable argument function.-class FFI a where-    fancy :: ([JSCode] -> JSCode) -> a--instance (ToJS a, FFI b) => FFI (a -> b) where-    fancy f a = fancy $ f . (render a:)--instance FFI (JSFunction ())          where fancy f = fromJSCode $ f []-instance FFI (JSFunction String)      where fancy   = mkResult "%1.toString()"-instance FFI (JSFunction Text)        where fancy   = mkResult "%1.toString()"-instance FFI (JSFunction JSON.Value)  where fancy   = mkResult "%1"-instance FFI (JSFunction Int)         where fancy   = mkResult "%1"-instance FFI (JSFunction Double)      where fancy   = mkResult "%1"-instance FFI (JSFunction Float)       where fancy   = mkResult "%1"-instance FFI (JSFunction [ElementId]) where fancy   = mkResult "elementsToElids(%1)"---- FIXME: We need access to IO in order to turn a Coupon into an Element.-{- -instance FFI (JSFunction Element)   where-    fancy   = fmapWindow (\w elid -> Element elid w) . fancy--}--mkResult :: FromJSON a => String -> ([JSCode] -> JSCode) -> JSFunction a-mkResult client f = JSFunction-    { code    = apply client [f []]-    , marshal = \w -> parseJSON-    }---- | Simple JavaScript FFI with string substitution.------ Inspired by the Fay language. <http://fay-lang.org/>------ > example :: String -> Int -> JSFunction String--- > example = ffi "$(%1).prop('checked',%2)"------ The 'ffi' function takes a string argument representing the JavaScript--- code to be executed on the client.--- Occurrences of the substrings @%1@ to @%9@ will be replaced by--- subequent arguments.------ Note: Always specify a type signature! The types automate--- how values are marshalled between Haskell and JavaScript.--- The class instances for the 'FFI' class show which conversions are supported.----ffi :: FFI a => String -> a-ffi macro = fancy (apply macro)--testFFI :: String -> Int -> JSFunction String-testFFI = ffi "$(%1).prop('checked',%2)"---- | String substitution.--- Substitute occurences of %1, %2 up to %9 with the argument strings.--- The types ensure that the % character has no meaning in the generated output.--- --- > apply "%1 and %2" [x,y] = x ++ " and " ++ y-apply :: String -> [JSCode] -> JSCode-apply code args = JSCode $ go code-    where-    at xs i = maybe (error err) id $ atMay xs i-    err     = "Graphics.UI.Threepenny.FFI: Too few arguments in FFI call!"-    argument i = unJSCode (args `at` i)-    -    go []         = []-    go ('%':c:cs) = argument index ++ go cs-        where index = fromEnum c - fromEnum '1'-    go (c:cs)     = c : go cs-

@@ -1,31 +0,0 @@-{-# LANGUAGE TemplateHaskell, CPP #-}-module Graphics.UI.Threepenny.Internal.Include (include) where- -import Data.Functor-import System.IO-import qualified Language.Haskell.TH as TH-import Language.Haskell.TH.Quote--#if defined(CABAL) || defined(FPCOMPLETE)-root :: FilePath-root = "src/"-#else-root :: FilePath-root = "../src/" -- running examples from ghci-#endif--include :: QuasiQuoter-include = QuasiQuoter-        { quoteExp  = f             -- only used as an expression,-        , quotePat  = undefined     -- hence all other use cases undefined-        , quoteType = undefined-        , quoteDec  = undefined-        }-    where-    f s = TH.LitE . TH.StringL <$> TH.runIO (readFileUTF8 $ root ++ s)--readFileUTF8 :: FilePath -> IO String-readFileUTF8 path = do-    h <- openFile path ReadMode-    hSetEncoding h utf8-    hGetContents h

@@ -1,57 +0,0 @@-{-# LANGUAGE QuasiQuotes, CPP #-}-module Graphics.UI.Threepenny.Internal.Resources where--import           Data.Text                                       (Text)-import qualified Data.Text                               as Text-import           Graphics.UI.Threepenny.Internal.Include---jsDriverCode    :: Text-cssDriverCode   :: Text-defaultHtmlFile :: Text---jsDriverCode = Text.unlines $ map Text.pack-    [ [include|Graphics/UI/jquery.js|]-    , [include|Graphics/UI/jquery-cookie.js|]-    , [include|Graphics/UI/driver.js|]-    ]--cssDriverCode = Text.pack [include|Graphics/UI/driver.css|]--defaultHtmlFile = Text.pack [include|Graphics/UI/index.html|]---{---- Disabled code:--- Do not embed files with executables.--import qualified Data.Text.IO                            as Text-import           System.FilePath-import           System.IO.Unsafe--#ifdef CABAL-import qualified Paths_threepenny_gui-getDataDir = fmap (</> "src" </> "Graphics" </> "UI") Paths_threepenny_gui.getDataDir--#else-getDataDir = return $ "Graphics" </> "UI"-#endif---jsDriverCode = unsafePerformIO $-    readFiles $ words "jquery.js jquery-cookie.js driver.js" --cssDriverCode = unsafePerformIO $-    readFiles ["driver.css"]--defaultHtmlFile = unsafePerformIO $-    readFiles ["index.html"]--readFiles files = do-    ys <- mapM (Text.readFile . getDataFile) files-    return $ Text.unlines ys--getDataFile x = unsafePerformIO $ fmap (</> x) getDataDir---}

@@ -1,269 +0,0 @@-{-# LANGUAGE CPP #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE OverloadedStrings #-}--module Graphics.UI.Threepenny.Internal.Types where--import Prelude              hiding (init)--import Control.Applicative-import Control.Concurrent-import Control.DeepSeq-import Control.Monad-import qualified Reactive.Threepenny    as E-import           Data.ByteString.Char8  (ByteString)-import qualified Data.ByteString.Char8  as BS-import Data.Map                         (Map)-import Data.String                      (fromString)-import Data.Time-import Data.Text.Encoding               (encodeUtf8, decodeUtf8)--import Network.URI-import Data.Data-import           Data.Aeson             as JSON-import qualified Data.Aeson.Types       as JSON-import Data.Text--import System.IO (stderr)-import System.IO.Unsafe--import qualified Foreign.Coupon as Foreign--{------------------------------------------------------------------------------    Elements and ElementIds-------------------------------------------------------------------------------}--- | Reference to an element in the DOM of the client window.-type Element     = Foreign.Item ElementData-data ElementData = ElementData-    { elTagName  :: String          -- element is a <tag>..</tag> element-    , elSession  :: Session         -- associated browser window-    , elHandlers :: MVar Handlers   -- event handlers associated with that element-    , elEvents   :: Events          -- events         associated with that element-    }-newtype ElementId = ElementId BS.ByteString-    deriving (Data,Typeable,Show,Eq,Ord)--instance NFData ElementId where-    rnf (ElementId x) =-#if defined(CABAL) || defined(FPCOMPLETE)-#if MIN_VERSION_bytestring(0, 10, 0)-        rnf x-#else-        BS.length x `seq` ()-#endif-#else-        rnf x-#endif--type EventId  = String-type Handlers = Map EventId (E.Handler EventData)-type Events   = EventId -> E.Event EventData----- Marshalling ElementId-instance ToJSON ElementId where-    toJSON (ElementId o)  = toJSON $ decodeUtf8 o-instance FromJSON ElementId where-    parseJSON (Object v)  = (ElementId . encodeUtf8) <$> v .: "Element"-    parseJSON _           = mzero----- | Perform an action on the element.--- The element is not garbage collected while the action is run.-withElementData :: Element -> (ElementId -> ElementData -> IO a) -> IO a-withElementData e f = Foreign.withItem e $ \coupon el ->-    let elid = ElementId $ case fromString (elTagName el) of-            ""     -> coupon-            "head" -> "head"-            "body" -> "body" -            tag    -> BS.concat ["*",coupon,":",tag]-    in f elid el---- | Special case of 'withElementData'.-withElement :: Element -> (ElementId -> Session -> IO b) -> IO b-withElement e f = withElementData e $ \elid el -> f elid (elSession el)---- | Get 'ElementId' without any guarantee that the element is still alive.-unprotectedGetElementId :: Element -> ElementId-unprotectedGetElementId e = unsafePerformIO . withElement e $ \elid _ -> return elid----- | Look up an element in the browser window.-lookupElement :: ElementId -> Session -> IO Element-lookupElement (ElementId xs) Session{..} = case xs of-        "head"      -> return sHeadElement-        "body"      -> return sBodyElement-        xs          -> maybe (error msg) id <$> Foreign.lookup (coupon xs) sPrizeBooth-    where-    coupon xs = if BS.head xs == '*'-        then BS.takeWhile (/= ':') . BS.tail $ xs-        else xs--    msg = "Graphics.UI.Threepenny: Fatal error: ElementId " ++ show xs-        ++ "was garbage collected on the server, but is still present in the browser."---{------------------------------------------------------------------------------    Server-------------------------------------------------------------------------------}--- | A client session.-data Session = Session-  { sSignals        :: Chan Signal-  , sInstructions   :: Chan Instruction-  , sMutex          :: MVar ()-  , sEventQuit      :: (E.Event (), E.Handler ())-  , sClosures       :: MVar [Integer]-  , sPrizeBooth     :: Foreign.PrizeBooth ElementData-  , sHeadElement    :: Element-  , sBodyElement    :: Element-  , sToken          :: Integer-  , sConnectedState :: MVar ConnectedState-  , sThreadId       :: ThreadId-  , sStartInfo      :: (URI,[(String,String)])-  , sServerState    :: ServerState-  }--type Sessions      = Map Integer Session-type MimeType      = ByteString-type Filepaths     = (Integer, Map ByteString (FilePath, MimeType))--data ServerState = ServerState-    { sSessions :: MVar Sessions-    , sFiles    :: MVar Filepaths-    , sDirs     :: MVar Filepaths-    }--data ConnectedState-  = Disconnected UTCTime -- ^ The time that the poll disconnected, or-                         -- the first initial connection time.-  | Connected            -- ^ The client is connected, we don't care-                         -- since when.-  deriving (Show)---- | A Haskell value/function of type 'a',--- presented in a form that can be called from JavaScript.-data HsFunction a = HsFunction ElementId EventId-    deriving (Typeable, Data, Show)---{------------------------------------------------------------------------------    Public types-------------------------------------------------------------------------------}--- | The client browser window.-type Window = Session---- | Data from an event. At the moment it is empty.-data EventData = EventData [Maybe String]---- | Record for configuring the Threepenny GUI server.-data Config = Config-    { tpPort       :: Maybe Int           -        -- ^ Port number.-        -- @Nothing@ means that the port number is-        -- read from the environment variable @PORT@.-        -- Alternatively, port @8023@ is used if this variable is not set.-    , tpAddr       :: Maybe ByteString-        -- ^ Bind address.-        -- @Nothing@ means that the bind address is-        -- read from the environment variable @ADDR@.-        -- Alternatively, address @127.0.0.1@ is-        -- used if this variable is not set.-    , tpCustomHTML :: Maybe FilePath-        -- ^ Custom HTML file to replace the default one.-    , tpStatic     :: Maybe FilePath-        -- ^ Directory that is served under @/static@.-    , tpLog        :: ByteString -> IO ()-        -- ^ Print a single log message.-    }--defaultPort :: Int-defaultPort = 8023--defaultAddr :: ByteString-defaultAddr = "127.0.0.1"---- | Default configuration.------ Port from environment variable or @8023@,--- no custom HTML, no static directory, logging to stderr.-defaultConfig :: Config-defaultConfig = Config-    { tpPort       = Nothing-    , tpAddr       = Nothing-    , tpCustomHTML = Nothing-    , tpStatic     = Nothing-    , tpLog        = \s -> BS.hPut stderr s >> BS.hPut stderr "\n"-    }---{------------------------------------------------------------------------------    Communication between client and server-------------------------------------------------------------------------------}--- | An instruction that is sent to the client as JSON.-data Instruction-  = Debug String-  | SetToken Integer-  | Bind EventId ElementId-  | GetValues [ElementId]-  | RunJSFunction String-  | CallJSFunction String-  | Delete ElementId-  deriving (Typeable,Data,Show)--instance ToJSON Instruction where-    toJSON (Debug x)          = object [ "tag" .= ("Debug" :: Text)-                                       , "contents" .= x]-    toJSON (SetToken x)       = object [ "tag" .= ("SetToken" :: Text)-                                       , "contents" .= x]-    toJSON (Bind x y)         = object [ "tag" .= ("Bind" :: Text)-                                       , "contents" .= [toJSON x, toJSON y]]-    toJSON (GetValues xs)     = object [ "tag" .= ("GetValues" :: Text)-                                       , "contents" .= xs]-    toJSON (RunJSFunction  x) = object [ "tag" .= ("RunJSFunction" :: Text)-                                       , "contents" .= x]-    toJSON (CallJSFunction x) = object [ "tag" .= ("CallJSFunction" :: Text)-                                       , "contents" .= x]-    toJSON (Delete x)         = object [ "tag" .= ("Delete" :: Text)-                                       , "contents" .= x]--instance NFData Instruction where-    rnf (Debug    x  ) = rnf x-    rnf (SetToken x  ) = rnf x-    rnf (Bind     x y) = rnf x `seq` rnf y-    rnf (GetValues xs) = rnf xs-    rnf (RunJSFunction  x) = rnf x-    rnf (CallJSFunction x) = rnf x-    rnf (Delete x)     = rnf x---- | A signal (mostly events) that are sent from the client to the server.-data Signal-  = Quit ()-  | Event ElementId EventId [Maybe String]-  | Values [String]-  | FunctionCallValues [Maybe String]-  | FunctionResult JSON.Value-  deriving (Typeable,Show)--instance FromJSON Signal where-  parseJSON (Object v) = do-    let quit  = Quit <$> v .: "Quit"-        event = do-          e         <- v .: "Event"-          elid      <- e .: "Element"-          eventId   <- e .: "EventId"-          arguments <- e .: "Params"-          args      <- mapM nullable arguments-          return $ Event elid eventId args-        values = Values <$> v .: "Values"-        fcallvalues = do-          FunctionCallValues <$> (v .: "FunctionCallValues" >>= mapM nullable)-        fresult = FunctionResult <$> v .: "FunctionResult"-    quit <|> event <|> values <|> fcallvalues <|> fresult-  parseJSON _        = mzero---- | Read a JSON Value that may be null.-nullable :: FromJSON a => JSON.Value -> JSON.Parser (Maybe a)-nullable Null = return Nothing-nullable v    = Just <$> parseJSON v-

@@ -1,4 +1,3 @@-{-# OPTIONS -fno-warn-wrong-do-bind #-} module Graphics.UI.Threepenny.JQuery where  import Control.Arrow@@ -6,12 +5,12 @@ import Data.Char import Data.Default import Data.Maybe-import Graphics.UI.Threepenny.Core-import qualified Graphics.UI.Threepenny.Internal.Driver as Core-import qualified Graphics.UI.Threepenny.Internal.Types  as Core-import Reactive.Threepenny +import Graphics.UI.Threepenny.Core +{-----------------------------------------------------------------------------+    jQuery utilities+------------------------------------------------------------------------------} data Easing = Swing | Linear   deriving (Eq,Enum,Show) @@ -31,11 +30,10 @@     runFunction $ ffi "$(%1).animate({opacity: 0}, %2 * 1, %3, %4)"         el duration (map toLower (show easing)) callback --- | Do something on return.+-- | The 'sendValue' event happens whenver the return key is pressed+-- while the element has focus. Its data is the event value. sendValue :: Element -> Event String-sendValue el = fmap f (domEvent "sendvalue" el)-    where-    f (EventData x) = concat . catMaybes $ x+sendValue = fmap unsafeFromJSON . domEvent "sendvalue"  -- | Focus an element. setFocus :: Element -> UI ()

@@ -35,90 +35,90 @@     view, vkern,     ) where -import Prelude ()-import Graphics.UI.Threepenny.Core (mkElement)+import Prelude (Maybe(..))+import Graphics.UI.Threepenny.Core (mkElementNamespace)  -tag    = mkElement-itag   = mkElement+tag    = mkElementNamespace (Just "http://www.w3.org/2000/svg")+itag   = tag -a                     =  tag "svg:a"-altGlyph              =  tag "svg:altGlyph"-altGlyphDef           = itag "svg:altGlyphDef"-altGlyphItem          = itag "svg:altGlyphItem"-animate               =  tag "svg:animate"-animateColor          =  tag "svg:animateColor"-animateMotion         =  tag "svg:animateMotion"-animateTransform      = itag "svg:animateTransform"-circle                = itag "svg:circle"-clipPath              =  tag "svg:clipPath"-colorProfile          = itag "svg:colorProfile"-cursor                = itag "svg:cursor"-defs                  =  tag "svg:defs"-desc                  = itag "svg:desc"-ellipse               =  tag "svg:ellipse"-feBlend               =  tag "svg:feBlend"-feColorMatrix         =  tag "svg:feColorMatrix"-feComponentTransfer   =  tag "svg:feComponentTransfer"-feComposite           =  tag "svg:feComposite"-feConvolveMatrix      =  tag "svg:feConvolveMatrix"-feDiffuseLighting     =  tag "svg:feDiffuseLighting"-feDisplacementMap     =  tag "svg:feDisplacementMap"-feDistantLight        = itag "svg:feDistantLight"-feFlood               =  tag "svg:feFlood"-feFuncA               = itag "svg:feFuncA"-feFuncB               = itag "svg:feFuncB"-feFuncG               = itag "svg:feFuncG"-feFuncR               = itag "svg:feFuncR"-feGaussianBlur        =  tag "svg:feGaussianBlur"-feImage               =  tag "svg:feImage"-feMerge               =  tag "svg:feMerge"-feMergeNode           = itag "svg:feMergeNode"-feMorphology          =  tag "svg:feMorphology"-feOffset              =  tag "svg:feOffset"-fePointLight          = itag "svg:fePointLight"-feSpecularLighting    =  tag "svg:feSpecularLighting"-feSpotLight           = itag "svg:feSpotLight"-feTile                =  tag "svg:feTile"-feTurbulence          =  tag "svg:feTurbulence"-filter                =  tag "svg:filter"-font                  =  tag "svg:font"-font_face             = itag "svg:font-face"-font_face_format      = itag "svg:font-face-format"-font_face_name        = itag "svg:font-face-name"-font_face_srv         = itag "svg:font-face-src"-font_face_uri         = itag "svg:font-face-uri"-foreignObject         =  tag "svg:foreignObject"-g                     =  tag "svg:g"-glyph                 =  tag "svg:glyph"-glyphRef              =  tag "svg:glyphRef"-hkern                 = itag "svg:hkern"-image                 =  tag "svg:image"-line                  =  tag "svg:line"-linearGradient        =  tag "svg:linearGradient"-marker                =  tag "svg:marker"-mask                  =  tag "svg:mask"-metadata              = itag "svg:metadata"-missing_glyph         =  tag "svg:missing-glyph"-mpath                 = itag "svg:mpath"-path                  = itag "svg:path"-pattern               =  tag "svg:pattern"-polygon               =  tag "svg:polygon"-polyline              =  tag "svg:polyline"-radialGradient        =  tag "svg:radialGradient"-rect                  =  tag "svg:rect"-script                = itag "svg:script"-set                   = itag "svg:set"-stop                  =  tag "svg:stop"-style                 = itag "svg:style"-svg                   =  tag "svg:svg"-switch                =  tag "svg:switch"-symbol                =  tag "svg:symbol"-text                  =  tag "svg:text"-textPath              =  tag "svg:textPath"-title                 = itag "svg:title"-tref                  =  tag "svg:tref"-tspan                 =  tag "svg:tspan"-use                   =  tag "svg:use"-view                  = itag "svg:view"-vkern                 = itag "svg:vkern"+a                     =  tag "a"+altGlyph              =  tag "altGlyph"+altGlyphDef           = itag "altGlyphDef"+altGlyphItem          = itag "altGlyphItem"+animate               =  tag "animate"+animateColor          =  tag "animateColor"+animateMotion         =  tag "animateMotion"+animateTransform      = itag "animateTransform"+circle                = itag "circle"+clipPath              =  tag "clipPath"+colorProfile          = itag "colorProfile"+cursor                = itag "cursor"+defs                  =  tag "defs"+desc                  = itag "desc"+ellipse               =  tag "ellipse"+feBlend               =  tag "feBlend"+feColorMatrix         =  tag "feColorMatrix"+feComponentTransfer   =  tag "feComponentTransfer"+feComposite           =  tag "feComposite"+feConvolveMatrix      =  tag "feConvolveMatrix"+feDiffuseLighting     =  tag "feDiffuseLighting"+feDisplacementMap     =  tag "feDisplacementMap"+feDistantLight        = itag "feDistantLight"+feFlood               =  tag "feFlood"+feFuncA               = itag "feFuncA"+feFuncB               = itag "feFuncB"+feFuncG               = itag "feFuncG"+feFuncR               = itag "feFuncR"+feGaussianBlur        =  tag "feGaussianBlur"+feImage               =  tag "feImage"+feMerge               =  tag "feMerge"+feMergeNode           = itag "feMergeNode"+feMorphology          =  tag "feMorphology"+feOffset              =  tag "feOffset"+fePointLight          = itag "fePointLight"+feSpecularLighting    =  tag "feSpecularLighting"+feSpotLight           = itag "feSpotLight"+feTile                =  tag "feTile"+feTurbulence          =  tag "feTurbulence"+filter                =  tag "filter"+font                  =  tag "font"+font_face             = itag "font-face"+font_face_format      = itag "font-face-format"+font_face_name        = itag "font-face-name"+font_face_srv         = itag "font-face-src"+font_face_uri         = itag "font-face-uri"+foreignObject         =  tag "foreignObject"+g                     =  tag "g"+glyph                 =  tag "glyph"+glyphRef              =  tag "glyphRef"+hkern                 = itag "hkern"+image                 =  tag "image"+line                  =  tag "line"+linearGradient        =  tag "linearGradient"+marker                =  tag "marker"+mask                  =  tag "mask"+metadata              = itag "metadata"+missing_glyph         =  tag "missing-glyph"+mpath                 = itag "mpath"+path                  = itag "path"+pattern               =  tag "pattern"+polygon               =  tag "polygon"+polyline              =  tag "polyline"+radialGradient        =  tag "radialGradient"+rect                  =  tag "rect"+script                = itag "script"+set                   = itag "set"+stop                  =  tag "stop"+style                 = itag "style"+svg                   =  tag "svg"+switch                =  tag "switch"+symbol                =  tag "symbol"+text                  =  tag "text"+textPath              =  tag "textPath"+title                 = itag "title"+tref                  =  tag "tref"+tspan                 =  tag "tspan"+use                   =  tag "use"+view                  = itag "view"+vkern                 = itag "vkern"

@@ -1,3 +0,0 @@-.table { display: table; }-.table-row  { display: table-row; }-.table-cell { display: table-cell; }

@@ -1,403 +0,0 @@-$.fn.sendvalue = function(trigger){-  $(this).each(function(){-    var self = this;-    var el = $(self);-    el.keydown(function(e){-      if(e.which == 13) {-        trigger.call(self,el.val());-        return false;-      }-      else-        return true;-    });-  });-};--$.fn.livechange = function(ms,trigger){-  $(this).each(function(){-    var self = this;-    var el = $(self);-    var last_val;-    var check = function(){-      var val = el.val();-      if(val != last_val)-        trigger.call(self);-      last_val = val;-    };-    var checker;-    var restart = function(){-      clearTimeout(checker);-      checker = setInterval(check,ms);-    };-    restart();-    el.keypress(restart).change(restart);-  });-};--(function(){--  ////////////////////////////////////////////////////////////////////////////////-  // State-  var sessionToken = null;-  var el_table = {};-  var tp_enable_log = $.cookie('tp_log') == "true";-  var signal_count = 0;--  document.head = document.head || document.getElementsByTagName('head')[0];--  ////////////////////////////////////////////////////////////////////////////////-  // Logging-  window.do_logging = function(x){-    $.cookie('tp_log',x.toString());-  };--  function console_log(){-    if (tp_enable_log) { window.console.log.apply(window.console,arguments); }-  }--  ////////////////////////////////////////////////////////////////////////////////-  // Main entry point-  $(document).ready(function(){-    // initCommunicationHTTP();-    initCommunicationWebSockets();-  });--  ////////////////////////////////////////////////////////////////////////////////-  // Client-server communication-  // - GET and POST requests-  -  // Initialize communication via HTTP requests.-  function initCommunicationHTTP() {-    setTimeout(function(){-      waitForEvents();-    })-  }-  -  // Poll instruction from the server.-  function waitForEvents(){-    console_log("Polling… (%d signals so far)",signal_count);-    var data = { token: sessionToken };-    var cmd = sessionToken != null? 'poll' : 'init';-    if(cmd == 'init')-      data.info = window.location.href;-    var req = $.ajax({-      dataType: 'json',-      url: cmd,-      data: data,-      success: function(events){-        if(sessionToken == null) {-          sessionToken = req.getResponseHeader('Set-Token').match(/[0-9]+/)*1;-        }-        console_log("Running event" +(events.length>1?'s':'') +"…")-        if(events.length){-          console_log('Event list:');-          runMultipleEvents(events);-        } else {-          runEvent(events, signalEvent, function(response){-            maybeReply(response, waitForEvents);-          });-        }-      },-      error: function(reply){-        console_log("Error, waiting…");-        setTimeout(function(){-          waitForEvents();-        },5000);-      }-    });-  }--  function runMultipleEvents(events){-    if(events.length == 0) {-      return waitForEvents();-    }-    runEvent(events.shift(), signalEvent, function(response){-      maybeReply(response, function(){-        runMultipleEvents(events);-      });-    });-  }-  -  // Send an event to the server.-  function signalEvent(value) {-    signal({ Event: value}, function (){});-  }-  -  // Send a reply to the server if necessary.-  function maybeReply(response, continuation) {-    if (response != undefined) { signal(response, continuation); }-    else { continuation(); }-  }-  -  // Send response back to the server.-  function signal(signal,continuation){-    signal_count++;-    console_log('Signal: %s',JSON.stringify(signal));-    $.ajax({-      dataType: 'json',-      url:'signal',-      data: { token: sessionToken, signal: JSON.stringify(signal) },-      success: function(){-        continuation();-      },-      error: function(reply){-        console_log("Error: %o",reply);-      }-    });-  }-  -  ////////////////////////////////////////////////////////////////////////////////-  // Client-server communication-  // - WebSockets-  -  // Initialize client-server communication via WebSockets.-  function initCommunicationWebSockets() {-    var url = 'ws:' + window.location.href.toString().slice(5) + 'websocket';-    var ws  = new WebSocket(url);-    -    $(window).unload( function () {-      // Make sure that the WebSocket is closed when the browser window is closed.-      ws.close();-    });-    -    var sendEvent = function (elid, key, params) {-      ws.send(JSON.stringify({ Event : -          { Element : { Element : elid }-          , EventId : key-          , Params  : params-          }-        }));-    }-    var reply     = function (response) {-      if (response != undefined)-        ws.send(JSON.stringify(response));-    }-    // Send ping message in regular intervals.-    // We expect pong messages in return to keep the connection alive.-    function ping(){-      ws.send("ping");-      window.setTimeout(ping,2000);-    }-    -    ws.onopen = function (e){-      ping();-      ws.onmessage = function (msg) {-        // console_log("WebSocket message: %o",msg);-        if (msg.data != "pong")-          { runEvent(JSON.parse(msg.data), sendEvent, reply); }-      }-      ws.onclose = function (e) {-        console_log("WebSocket closed: %o", e);-      }-      ws.onerror = function (e) {-        console_log("WebSocket error: %o", e);-      }-    }-  }---  ////////////////////////////////////////////////////////////////////////////////-  // FFI - Execute and reply to commands from the server-  -  function runEvent(event,sendEvent,reply){-    // reply();      -- Continue without replying to the server.-    // reply(value); -- Send  value  back to the server.-    // sendEvent     -- Function that sends a message { Event : value } to the server.-    -    // FIXME: allow non-zero parameters for the callback function.-    function callback(elid,name) {-      return function() { sendEvent(elid,name,[]); };-    }-    -    console_log("Event: %s",JSON.stringify(event));-    switch(event.tag){-    case "RunJSFunction": {-        eval(event.contents);-        reply();-        break;-    }-    case "CallJSFunction": {-        var result = eval(event.contents);-        reply({FunctionResult : result});-        break;-    }-    case "Delete": {-        deleteElid(event.contents);-        reply();-        break;-    }-    case "Debug": {-        if(window.console)-          console.log("Server debug: %o",event.contents);-        reply();-        break;-    }-    case "GetValues": {-        var ids = event.contents;-        var len = ids.length;-        var values = [];-        for(var i = 0; i < len; i++) {-          values.push($(elidToElement(ids[i])).val());-        }-        reply({ Values: values });-        break;-    }-    case "Bind": {-        var bind        = event.contents;-        var eventType   = bind[0];-        var elid        = bind[1];-        var el          = elidToElement(elid);-        console_log('event type: ' + eventType);-        if(eventType == 'livechange') {-          $(el).livechange(300,function(e){-            sendEvent(elid,eventType, [$(el).val()]);-            return true;-          });-        } else if(eventType == 'sendvalue') {-          $(el).sendvalue(function(x){-            sendEvent(elid,eventType, [x]);-          });-        } else if(eventType.match('dragstart|dragenter|dragover|dragleave|drag|drop|dragend')) {-          $(el).bind(eventType,function(e){-            sendEvent(elid,eventType,-                e.originalEvent.dataTransfer-                    ? [e.originalEvent.dataTransfer.getData("dragData")]-                    : []-              );-            return true;-          });-        } else if(eventType.match('mousemove|mousedown|mouseup')) {-          $(el).bind(eventType,function(e){-            var offset = $(this).offset();-            var x      = e.pageX - offset.left;-            var y      = e.pageY - offset.top;         -            sendEvent(elid,eventType, [x.toString(), y.toString()]);-            return true;-          });-        } else if(eventType.match('keydown|keyup')) {-          $(el).bind(eventType,function(e){-            sendEvent(elid,eventType, [e.keyCode.toString()]);-            return true;-          });-        } else {-          $(el).bind(eventType,function(e){-            sendEvent(elid,eventType, e.which ? [e.which.toString()] : []);-            return true;-          });-        }-        reply();-        break;-    }-    default: reply();-    }-  }--  ////////////////////////////////////////////////////////////////////////////////-  // FFI - marshaling--  // When the server creates elements, it assigns them a string "elid".  -  // This elidToElement function is used to sync the elids on the server with the -  // elids on this client code.  Lookups on elids that do not already exist in the client-  // table are created and added automatically.-  function elidToElement(elid){-    if(elid == 'body')-      return document.body;-    else if(elid == 'head')-      return document.head;-    else if(elid[0] == '*')-      return newElement(elid);-    else-      throw "Unknown element: " + elid;-  }--  // Function to leverage the DOM2 createElementNS() function that creates DOM-  // elements based on tags defined in HTML 5 namespaces. Elements/elids are cached-  // and returned if subsequently requested. Current implementation supports only -  // HTML and SVG namespaces.-  // TODO: Opportunity to support all HTML 5 namespaces, -  //         http://www.w3.org/TR/2011/WD-html5-20110113/namespaces.html-  function newElement(elid) {-    var create = elid.split(':');-    if( create[1] == "svg"){-      ns    = "http://www.w3.org/2000/svg";-      tag   = create[2];-      elid_ = create[0] + ":" + create[2];-    }-    else {-      ns    = "http://www.w3.org/1999/xhtml";-      tag   = create[1];-      elid_ = elid;-    }-    if(el_table[elid_]) return el_table[elid_];-    element         = document.createElementNS(ns, tag);-    element.elid    = elid_;-    el_table[elid_] = element;-    return element;-  }- -  // Get/generate a elid for an element.  This function is used for cases in which the-  // element is accessed without knowing an elid from the server, such as when the -  // element is retrieved by type or html ID attribute.  The element is then added to -  // elid lookup table using the new elid.-  // Note: The mapping between  elids  and  DOM elements  must be bijective.-  function elementToElid(element){-    if(element.elid)-      return element.elid;-	  else if (element === document.body)-      return "body";-	  else if (element === document.head)-      return "head";-    else {-      throw "Element requested, but does not have elid: " + element;-    }-  }-  -  // plural of the mapping from elements to elids-  function elementsToElids(elements){-    var els = [], match;-    for(var i = 0; i < elements.length; i++) {-      match = elements[i];-      if (match != null) {-        els.push({ Element: elementToElid(match) });-      }-    }-    return els;-  }-  -  // Delete element from the table-  function deleteElid(elid){-    var el = el_table[elid];-    if (el) {-      $(el).detach(); // Should be detached already, but make sure-      delete el_table[elid];-    }-  }--  ////////////////////////////////////////////////////////////////////////////////-  // FFI - additional primitive functions-  -  window.jquery_scrollToBottom = function(el){-    $(el).scrollTop(el.scrollHeight);-  };--  function prim_audio_stop(audio){-    audio.pause();-    audio.currentTime = 0;-  }--  // see http://stackoverflow.com/a/9722502/403805-  CanvasRenderingContext2D.prototype.clear = -    CanvasRenderingContext2D.prototype.clear || function (preserveTransform) {-      if (preserveTransform) {-        this.save();-        this.setTransform(1, 0, 0, 1, 0, 0);-      }--      this.clearRect(0, 0, this.canvas.width, this.canvas.height);--      if (preserveTransform) {-        this.restore();-      }           -  };--})();

@@ -1,10 +0,0 @@-<!doctype html>-<head>-  <title></title>-  <script src="driver/threepenny-gui.js"></script>-  <link rel="stylesheet" type="text/css" href="driver/threepenny-gui.css"/>-</head>-<body>-  <noscript>Please enable JavaScript.</noscript>-</body>-</html>

@@ -1,56 +0,0 @@-/**- * jQuery Cookie plugin- *- * Copyright (c) 2010 Klaus Hartl (stilbuero.de)- * Dual licensed under the MIT and GPL licenses:- * http://www.opensource.org/licenses/mit-license.php- * http://www.gnu.org/licenses/gpl.html- *- */-(function($) {-  $.cookie = function(key, value, options) {--    // key and at least value given, set cookie...-    if (arguments.length > 1 && (!/Object/.test(Object.prototype.toString.call(value)) || value === null || value === undefined)) {-      options = $.extend({}, options);--      if (value === null || value === undefined) {-        options.expires = -1;-      }--      if (typeof options.expires === 'number') {-        var days = options.expires, t = options.expires = new Date();-        t.setDate(t.getDate() + days);-      }--      value = String(value);--      return (document.cookie = [-        encodeURIComponent(key), '=', options.raw ? value : encodeURIComponent(value),-        options.expires ? '; expires=' + options.expires.toUTCString() : '', // use expires attribute, max-age is not supported by IE-        options.path    ? '; path=' + options.path : '',-        options.domain  ? '; domain=' + options.domain : '',-        options.secure  ? '; secure' : ''-      ].join(''));-    }--    // key and possibly options given, get cookie...-    options = value || {};-    var decode = options.raw ? function(s) { return s; } : decodeURIComponent;--    var pairs = document.cookie.split('; ');-    for (var i = 0, pair; pair = pairs[i] && pairs[i].split('='); i++) {-      if (decode(pair[0]) === key) return decode(pair[1] || ''); // IE saves cookies with empty string as "c; ", e.g. without "=" as opposed to EOMB, thus pair[1] may be undefined-    }-    return null;-  };--  $.setSimpleCookie = function(name,value,f) {-    $.cookie(name,value,{-      path: '/',-      expire: 999 // TODO: -    });-    f();-  };-  -})(jQuery);

@@ -1,4 +0,0 @@-/*! jQuery v1.7.1 jquery.com | jquery.org/license */-(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cv(a){if(!ck[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cl||(cl=c.createElement("iframe"),cl.frameBorder=cl.width=cl.height=0),b.appendChild(cl);if(!cm||!cl.createElement)cm=(cl.contentWindow||cl.contentDocument).document,cm.write((c.compatMode==="CSS1Compat"?"<!doctype html>":"")+"<html><body>"),cm.close();d=cm.createElement(a),cm.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cl)}ck[a]=e}return ck[a]}function cu(a,b){var c={};f.each(cq.concat.apply([],cq.slice(0,b)),function(){c[this]=a});return c}function ct(){cr=b}function cs(){setTimeout(ct,0);return cr=f.now()}function cj(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ci(){try{return new a.XMLHttpRequest}catch(b){}}function cc(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g<i;g++){if(g===1)for(h in a.converters)typeof h=="string"&&(e[h.toLowerCase()]=a.converters[h]);l=k,k=d[g];if(k==="*")k=l;else if(l!=="*"&&l!==k){m=l+" "+k,n=e[m]||e["* "+k];if(!n){p=b;for(o in e){j=o.split(" ");if(j[0]===l||j[0]==="*"){p=e[j[1]+" "+k];if(p){o=e[o],o===!0?n=p:p===!0&&(n=o);break}}}}!n&&!p&&f.error("No conversion from "+m.replace(" "," to ")),n!==!0&&(c=n?n(c):p(o(c)))}}return c}function cb(a,c,d){var e=a.contents,f=a.dataTypes,g=a.responseFields,h,i,j,k;for(i in g)i in d&&(c[g[i]]=d[i]);while(f[0]==="*")f.shift(),h===b&&(h=a.mimeType||c.getResponseHeader("content-type"));if(h)for(i in e)if(e[i]&&e[i].test(h)){f.unshift(i);break}if(f[0]in d)j=f[0];else{for(i in d){if(!f[0]||a.converters[i+" "+f[0]]){j=i;break}k||(k=i)}j=j||k}if(j){j!==f[0]&&f.unshift(j);return d[j]}}function ca(a,b,c,d){if(f.isArray(b))f.each(b,function(b,e){c||bE.test(a)?d(a,e):ca(a+"["+(typeof e=="object"||f.isArray(e)?b:"")+"]",e,c,d)});else if(!c&&b!=null&&typeof b=="object")for(var e in b)ca(a+"["+e+"]",b[e],c,d);else d(a,b)}function b_(a,c){var d,e,g=f.ajaxSettings.flatOptions||{};for(d in c)c[d]!==b&&((g[d]?a:e||(e={}))[d]=c[d]);e&&f.extend(!0,a,e)}function b$(a,c,d,e,f,g){f=f||c.dataTypes[0],g=g||{},g[f]=!0;var h=a[f],i=0,j=h?h.length:0,k=a===bT,l;for(;i<j&&(k||!l);i++)l=h[i](c,d,e),typeof l=="string"&&(!k||g[l]?l=b:(c.dataTypes.unshift(l),l=b$(a,c,d,e,l,g)));(k||!l)&&!g["*"]&&(l=b$(a,c,d,e,"*",g));return l}function bZ(a){return function(b,c){typeof b!="string"&&(c=b,b="*");if(f.isFunction(c)){var d=b.toLowerCase().split(bP),e=0,g=d.length,h,i,j;for(;e<g;e++)h=d[e],j=/^\+/.test(h),j&&(h=h.substr(1)||"*"),i=a[h]=a[h]||[],i[j?"unshift":"push"](c)}}}function bC(a,b,c){var d=b==="width"?a.offsetWidth:a.offsetHeight,e=b==="width"?bx:by,g=0,h=e.length;if(d>0){if(c!=="border")for(;g<h;g++)c||(d-=parseFloat(f.css(a,"padding"+e[g]))||0),c==="margin"?d+=parseFloat(f.css(a,c+e[g]))||0:d-=parseFloat(f.css(a,"border"+e[g]+"Width"))||0;return d+"px"}d=bz(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0;if(c)for(;g<h;g++)d+=parseFloat(f.css(a,"padding"+e[g]))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+e[g]+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+e[g]))||0);return d+"px"}function bp(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bf,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bo(a){var b=c.createElement("div");bh.appendChild(b),b.innerHTML=a.outerHTML;return b.firstChild}function bn(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bm(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bm)}function bm(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bl(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bk(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bj(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d<e;d++)f.event.add(b,c+(i[c][d].namespace?".":"")+i[c][d].namespace,i[c][d],i[c][d].data)}h.data&&(h.data=f.extend({},h.data))}}function bi(a,b){return f.nodeName(a,"table")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function U(a){var b=V.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}function T(a,b,c){b=b||0;if(f.isFunction(b))return f.grep(a,function(a,d){var e=!!b.call(a,d,a);return e===c});if(b.nodeType)return f.grep(a,function(a,d){return a===b===c});if(typeof b=="string"){var d=f.grep(a,function(a){return a.nodeType===1});if(O.test(b))return f.filter(b,d,!c);b=f.filter(b,d)}return f.grep(a,function(a,d){return f.inArray(a,b)>=0===c})}function S(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function K(){return!0}function J(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c<d;c++)b[a[c]]=!0;return b}var c=a.document,d=a.navigator,e=a.location,f=function(){function J(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(J,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,n=/^[\],:{}\s]*$/,o=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,p=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,q=/(?:^|:|,)(?:\s*\[)+/g,r=/(webkit)[ \/]([\w.]+)/,s=/(opera)(?:.*version)?[ \/]([\w.]+)/,t=/(msie) ([\w.]+)/,u=/(mozilla)(?:.*? rv:([\w.]+))?/,v=/-([a-z]|[0-9])/ig,w=/^-ms-/,x=function(a,b){return(b+"").toUpperCase()},y=d.userAgent,z,A,B,C=Object.prototype.toString,D=Object.prototype.hasOwnProperty,E=Array.prototype.push,F=Array.prototype.slice,G=String.prototype.trim,H=Array.prototype.indexOf,I={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=m.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7.1",length:0,size:function(){return this.length},toArray:function(){return F.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?E.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),A.add(a);return this},eq:function(a){a=+a;return a===-1?this.slice(a):this.slice(a,a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(F.apply(this,arguments),"slice",F.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:E,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j<k;j++)if((a=arguments[j])!=null)for(c in a){d=i[c],f=a[c];if(i===f)continue;l&&f&&(e.isPlainObject(f)||(g=e.isArray(f)))?(g?(g=!1,h=d&&e.isArray(d)?d:[]):h=d&&e.isPlainObject(d)?d:{},i[c]=e.extend(l,h,f)):f!==b&&(i[c]=f)}return i},e.extend({noConflict:function(b){a.$===e&&(a.$=g),b&&a.jQuery===e&&(a.jQuery=f);return e},isReady:!1,readyWait:1,holdReady:function(a){a?e.readyWait++:e.ready(!0)},ready:function(a){if(a===!0&&!--e.readyWait||a!==!0&&!e.isReady){if(!c.body)return setTimeout(e.ready,1);e.isReady=!0;if(a!==!0&&--e.readyWait>0)return;A.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").off("ready")}},bindReady:function(){if(!A){A=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",B,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",B),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&J()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return!isNaN(parseFloat(a))&&isFinite(a)},type:function(a){return a==null?String(a):I[C.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!D.call(a,"constructor")&&!D.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||D.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw new Error(a)},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(n.test(b.replace(o,"@").replace(p,"]").replace(q,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(w,"ms-").replace(v,x)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g<h;)if(c.apply(a[g++],d)===!1)break}else if(i){for(f in a)if(c.call(a[f],f,a[f])===!1)break}else for(;g<h;)if(c.call(a[g],g,a[g++])===!1)break;return a},trim:G?function(a){return a==null?"":G.call(a)}:function(a){return a==null?"":(a+"").replace(k,"").replace(l,"")},makeArray:function(a,b){var c=b||[];if(a!=null){var d=e.type(a);a.length==null||d==="string"||d==="function"||d==="regexp"||e.isWindow(a)?E.call(c,a):e.merge(c,a)}return c},inArray:function(a,b,c){var d;if(b){if(H)return H.call(b,a,c);d=b.length,c=c?c<0?Math.max(0,d+c):c:0;for(;c<d;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,c){var d=a.length,e=0;if(typeof c.length=="number")for(var f=c.length;e<f;e++)a[d++]=c[e];else while(c[e]!==b)a[d++]=c[e++];a.length=d;return a},grep:function(a,b,c){var d=[],e;c=!!c;for(var f=0,g=a.length;f<g;f++)e=!!b(a[f],f),c!==e&&d.push(a[f]);return d},map:function(a,c,d){var f,g,h=[],i=0,j=a.length,k=a instanceof e||j!==b&&typeof j=="number"&&(j>0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i<j;i++)f=c(a[i],i,d),f!=null&&(h[h.length]=f);else for(g in a)f=c(a[g],g,d),f!=null&&(h[h.length]=f);return h.concat.apply([],h)},guid:1,proxy:function(a,c){if(typeof c=="string"){var d=a[c];c=a,a=d}if(!e.isFunction(a))return b;var f=F.call(arguments,2),g=function(){return a.apply(c,f.concat(F.call(arguments)))};g.guid=a.guid=a.guid||g.guid||e.guid++;return g},access:function(a,c,d,f,g,h){var i=a.length;if(typeof c=="object"){for(var j in c)e.access(a,j,c[j],f,g,d);return a}if(d!==b){f=!h&&f&&e.isFunction(d);for(var k=0;k<i;k++)g(a[k],c,f?d.call(a[k],k,g(a[k],c)):d,h);return a}return i?g(a[0],c):b},now:function(){return(new Date).getTime()},uaMatch:function(a){a=a.toLowerCase();var b=r.exec(a)||s.exec(a)||t.exec(a)||a.indexOf("compatible")<0&&u.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},sub:function(){function a(b,c){return new a.fn.init(b,c)}e.extend(!0,a,this),a.superclass=this,a.fn=a.prototype=this(),a.fn.constructor=a,a.sub=this.sub,a.fn.init=function(d,f){f&&f instanceof e&&!(f instanceof a)&&(f=a(f));return e.fn.init.call(this,d,f,b)},a.fn.init.prototype=a.fn;var b=a(c);return a},browser:{}}),e.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(a,b){I["[object "+b+"]"]=b.toLowerCase()}),z=e.uaMatch(y),z.browser&&(e.browser[z.browser]=!0,e.browser.version=z.version),e.browser.webkit&&(e.browser.safari=!0),j.test(" ")&&(k=/^[\s\xA0]+/,l=/[\s\xA0]+$/),h=e(c),c.addEventListener?B=function(){c.removeEventListener("DOMContentLoaded",B,!1),e.ready()}:c.attachEvent&&(B=function(){c.readyState==="complete"&&(c.detachEvent("onreadystatechange",B),e.ready())});return e}(),g={};f.Callbacks=function(a){a=a?g[a]||h(a):{};var c=[],d=[],e,i,j,k,l,m=function(b){var d,e,g,h,i;for(d=0,e=b.length;d<e;d++)g=b[d],h=f.type(g),h==="array"?m(g):h==="function"&&(!a.unique||!o.has(g))&&c.push(g)},n=function(b,f){f=f||[],e=!a.memory||[b,f],i=!0,l=j||0,j=0,k=c.length;for(;c&&l<k;l++)if(c[l].apply(b,f)===!1&&a.stopOnFalse){e=!0;break}i=!1,c&&(a.once?e===!0?o.disable():c=[]:d&&d.length&&(e=d.shift(),o.fireWith(e[0],e[1])))},o={add:function(){if(c){var a=c.length;m(arguments),i?k=c.length:e&&e!==!0&&(j=a,n(e[0],e[1]))}return this},remove:function(){if(c){var b=arguments,d=0,e=b.length;for(;d<e;d++)for(var f=0;f<c.length;f++)if(b[d]===c[f]){i&&f<=k&&(k--,f<=l&&l--),c.splice(f--,1);if(a.unique)break}}return this},has:function(a){if(c){var b=0,d=c.length;for(;b<d;b++)if(a===c[b])return!0}return!1},empty:function(){c=[];return this},disable:function(){c=d=e=b;return this},disabled:function(){return!c},lock:function(){d=b,(!e||e===!0)&&o.disable();return this},locked:function(){return!d},fireWith:function(b,c){d&&(i?a.once||d.push([b,c]):(!a.once||!e)&&n(b,c));return this},fire:function(){o.fireWith(this,arguments);return this},fired:function(){return!!e}};return o};var i=[].slice;f.extend({Deferred:function(a){var b=f.Callbacks("once memory"),c=f.Callbacks("once memory"),d=f.Callbacks("memory"),e="pending",g={resolve:b,reject:c,notify:d},h={done:b.add,fail:c.add,progress:d.add,state:function(){return e},isResolved:b.fired,isRejected:c.fired,then:function(a,b,c){i.done(a).fail(b).progress(c);return this},always:function(){i.done.apply(i,arguments).fail.apply(i,arguments);return this},pipe:function(a,b,c){return f.Deferred(function(d){f.each({done:[a,"resolve"],fail:[b,"reject"],progress:[c,"notify"]},function(a,b){var c=b[0],e=b[1],g;f.isFunction(c)?i[a](function(){g=c.apply(this,arguments),g&&f.isFunction(g.promise)?g.promise().then(d.resolve,d.reject,d.notify):d[e+"With"](this===i?d:this,[g])}):i[a](d[e])})}).promise()},promise:function(a){if(a==null)a=h;else for(var b in h)a[b]=h[b];return a}},i=h.promise({}),j;for(j in g)i[j]=g[j].fire,i[j+"With"]=g[j].fireWith;i.done(function(){e="resolved"},c.disable,d.lock).fail(function(){e="rejected"},b.disable,d.lock),a&&a.call(i,i);return i},when:function(a){function m(a){return function(b){e[a]=arguments.length>1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c<d;c++)b[c]&&b[c].promise&&f.isFunction(b[c].promise)?b[c].promise().then(l(c),j.reject,m(c)):--g;g||j.resolveWith(j,b)}else j!==a&&j.resolveWith(j,d?[a]:[]);return k}}),f.support=function(){var b,d,e,g,h,i,j,k,l,m,n,o,p,q=c.createElement("div"),r=c.documentElement;q.setAttribute("className","t"),q.innerHTML="   <link/><table></table><a href='/a' style='top:1px;float:left;opacity:.55;'>a</a><input type='checkbox'/>",d=q.getElementsByTagName("*"),e=q.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=q.getElementsByTagName("input")[0],b={leadingWhitespace:q.firstChild.nodeType===3,tbody:!q.getElementsByTagName("tbody").length,htmlSerialize:!!q.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:q.className!=="t",enctype:!!c.createElement("form").enctype,html5Clone:c.createElement("nav").cloneNode(!0).outerHTML!=="<:nav></:nav>",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,b.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,b.optDisabled=!h.disabled;try{delete q.test}catch(s){b.deleteExpando=!1}!q.addEventListener&&q.attachEvent&&q.fireEvent&&(q.attachEvent("onclick",function(){b.noCloneEvent=!1}),q.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),b.radioValue=i.value==="t",i.setAttribute("checked","checked"),q.appendChild(i),k=c.createDocumentFragment(),k.appendChild(q.lastChild),b.checkClone=k.cloneNode(!0).cloneNode(!0).lastChild.checked,b.appendChecked=i.checked,k.removeChild(i),k.appendChild(q),q.innerHTML="",a.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",q.style.width="2px",q.appendChild(j),b.reliableMarginRight=(parseInt((a.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(q.attachEvent)for(o in{submit:1,change:1,focusin:1})n="on"+o,p=n in q,p||(q.setAttribute(n,"return;"),p=typeof q[n]=="function"),b[o+"Bubbles"]=p;k.removeChild(q),k=g=h=j=q=i=null,f(function(){var a,d,e,g,h,i,j,k,m,n,o,r=c.getElementsByTagName("body")[0];!r||(j=1,k="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",m="visibility:hidden;border:0;",n="style='"+k+"border:5px solid #000;padding:0;'",o="<div "+n+"><div></div></div>"+"<table "+n+" cellpadding='0' cellspacing='0'>"+"<tr><td></td></tr></table>",a=c.createElement("div"),a.style.cssText=m+"width:0;height:0;position:static;top:0;margin-top:"+j+"px",r.insertBefore(a,r.firstChild),q=c.createElement("div"),a.appendChild(q),q.innerHTML="<table><tr><td style='padding:0;border:0;display:none'></td><td>t</td></tr></table>",l=q.getElementsByTagName("td"),p=l[0].offsetHeight===0,l[0].style.display="",l[1].style.display="none",b.reliableHiddenOffsets=p&&l[0].offsetHeight===0,q.innerHTML="",q.style.width=q.style.paddingLeft="1px",f.boxModel=b.boxModel=q.offsetWidth===2,typeof q.style.zoom!="undefined"&&(q.style.display="inline",q.style.zoom=1,b.inlineBlockNeedsLayout=q.offsetWidth===2,q.style.display="",q.innerHTML="<div style='width:4px;'></div>",b.shrinkWrapBlocks=q.offsetWidth!==2),q.style.cssText=k+m,q.innerHTML=o,d=q.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,i={doesNotAddBorder:e.offsetTop!==5,doesAddBorderForTableAndCells:h.offsetTop===5},e.style.position="fixed",e.style.top="20px",i.fixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",i.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,i.doesNotIncludeMarginInBodyOffset=r.offsetTop!==j,r.removeChild(a),q=a=null,f.extend(b,i))});return b}();var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[j]:a[j]&&j,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[j]=n=++f.uuid:n=j),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[h]:h;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)||(b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" ")));for(e=0,g=b.length;e<g;e++)delete d[b[e]];if(!(c?m:f.isEmptyObject)(d))return}}if(!c){delete j[k].data;if(!m(j[k]))return}f.support.deleteExpando||!j.setInterval?delete j[k]:j[k]=null,i&&(f.support.deleteExpando?delete a[h]:a.removeAttribute?a.removeAttribute(h):a[h]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d,e,g,h=null;if(typeof a=="undefined"){if(this.length){h=f.data(this[0]);if(this[0].nodeType===1&&!f._data(this[0],"parsedAttrs")){e=this[0].attributes;for(var i=0,j=e.length;i<j;i++)g=e[i].name,g.indexOf("data-")===0&&(g=f.camelCase(g.substring(5)),l(this[0],g,h[g]));f._data(this[0],"parsedAttrs",!0)}}return h}if(typeof a=="object")return this.each(function(){f.data(this,a)});d=a.split("."),d[1]=d[1]?"."+d[1]:"";if(c===b){h=this.triggerHandler("getData"+d[1]+"!",[d[0]]),h===b&&this.length&&(h=f.data(this[0],a),h=l(this[0],a,h));return h===b&&d[1]?this.data(d[0]):h}return this.each(function(){var b=f(this),e=[d[0],c];b.triggerHandler("setData"+d[1]+"!",e),f.data(this,a,c),b.triggerHandler("changeData"+d[1]+"!",e)})},removeData:function(a){return this.each(function(){f.removeData(this,a)})}}),f.extend({_mark:function(a,b){a&&(b=(b||"fx")+"mark",f._data(a,b,(f._data(a,b)||0)+1))},_unmark:function(a,b,c){a!==!0&&(c=b,b=a,a=!1);if(b){c=c||"fx";var d=c+"mark",e=a?0:(f._data(b,d)||1)-1;e?f._data(b,d,e):(f.removeData(b,d,!0),n(b,c,"mark"))}},queue:function(a,b,c){var d;if(a){b=(b||"fx")+"queue",d=f._data(a,b),c&&(!d||f.isArray(c)?d=f._data(a,b,f.makeArray(c)):d.push(c));return d||[]}},dequeue:function(a,b){b=b||"fx";var c=f.queue(a,b),d=c.shift(),e={};d==="inprogress"&&(d=c.shift()),d&&(b==="fx"&&c.unshift("inprogress"),f._data(a,b+".run",e),d.call(a,function(){f.dequeue(a,b)},e)),c.length||(f.removeData(a,b+"queue "+b+".run",!0),n(a,b,"queue"))}}),f.fn.extend({queue:function(a,c){typeof a!="string"&&(c=a,a="fx");if(c===b)return f.queue(this[0],a);return this.each(function(){var b=f.queue(this,a,c);a==="fx"&&b[0]!=="inprogress"&&f.dequeue(this,a)})},dequeue:function(a){return this.each(function(){f.dequeue(this,a)})},delay:function(a,b){a=f.fx?f.fx.speeds[a]||a:a,b=b||"fx";return this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,c){function m(){--h||d.resolveWith(e,[e])}typeof a!="string"&&(c=a,a=b),a=a||"fx";var d=f.Deferred(),e=this,g=e.length,h=1,i=a+"defer",j=a+"queue",k=a+"mark",l;while(g--)if(l=f.data(e[g],i,b,!0)||(f.data(e[g],j,b,!0)||f.data(e[g],k,b,!0))&&f.data(e[g],i,f.Callbacks("once memory"),!0))h++,l.add(m);m();return d.promise()}});var o=/[\n\t\r]/g,p=/\s+/,q=/\r/g,r=/^(?:button|input)$/i,s=/^(?:button|input|object|select|textarea)$/i,t=/^a(?:rea)?$/i,u=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,v=f.support.getSetAttribute,w,x,y;f.fn.extend({attr:function(a,b){return f.access(this,a,b,!0,f.attr)},removeAttr:function(a){return this.each(function(){f.removeAttr(this,a)})},prop:function(a,b){return f.access(this,a,b,!0,f.prop)},removeProp:function(a){a=f.propFix[a]||a;return this.each(function(){try{this[a]=b,delete this[a]}catch(c){}})},addClass:function(a){var b,c,d,e,g,h,i;if(f.isFunction(a))return this.each(function(b){f(this).addClass(a.call(this,b,this.className))});if(a&&typeof a=="string"){b=a.split(p);for(c=0,d=this.length;c<d;c++){e=this[c];if(e.nodeType===1)if(!e.className&&b.length===1)e.className=a;else{g=" "+e.className+" ";for(h=0,i=b.length;h<i;h++)~g.indexOf(" "+b[h]+" ")||(g+=b[h]+" ");e.className=f.trim(g)}}}return this},removeClass:function(a){var c,d,e,g,h,i,j;if(f.isFunction(a))return this.each(function(b){f(this).removeClass(a.call(this,b,this.className))});if(a&&typeof a=="string"||a===b){c=(a||"").split(p);for(d=0,e=this.length;d<e;d++){g=this[d];if(g.nodeType===1&&g.className)if(a){h=(" "+g.className+" ").replace(o," ");for(i=0,j=c.length;i<j;i++)h=h.replace(" "+c[i]+" "," ");g.className=f.trim(h)}else g.className=""}}return this},toggleClass:function(a,b){var c=typeof a,d=typeof b=="boolean";if(f.isFunction(a))return this.each(function(c){f(this).toggleClass(a.call(this,c,this.className,b),b)});return this.each(function(){if(c==="string"){var e,g=0,h=f(this),i=b,j=a.split(p);while(e=j[g++])i=d?i:!h.hasClass(e),h[i?"addClass":"removeClass"](e)}else if(c==="undefined"||c==="boolean")this.className&&f._data(this,"__className__",this.className),this.className=this.className||a===!1?"":f._data(this,"__className__")||""})},hasClass:function(a){var b=" "+a+" ",c=0,d=this.length;for(;c<d;c++)if(this[c].nodeType===1&&(" "+this[c].className+" ").replace(o," ").indexOf(b)>-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];{if(!!arguments.length){e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}}}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c<d;c++){e=i[c];if(e.selected&&(f.support.optDisabled?!e.disabled:e.getAttribute("disabled")===null)&&(!e.parentNode.disabled||!f.nodeName(e.parentNode,"optgroup"))){b=f(e).val();if(j)return b;h.push(b)}}if(j&&!h.length&&i.length)return f(i[g]).val();return h},set:function(a,b){var c=f.makeArray(b);f(a).find("option").each(function(){this.selected=f.inArray(f(this).val(),c)>=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!!a&&j!==3&&j!==8&&j!==2){if(e&&c in f.attrFn)return f(a)[c](d);if(typeof a.getAttribute=="undefined")return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g}},removeAttr:function(a,b){var c,d,e,g,h=0;if(b&&a.nodeType===1){d=b.toLowerCase().split(p),g=d.length;for(;h<g;h++)e=d[h],e&&(c=f.propFix[e]||e,f.attr(a,e,""),a.removeAttribute(v?e:c),u.test(e)&&c in a&&(a[c]=!1))}},attrHooks:{type:{set:function(a,b){if(r.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(w&&f.nodeName(a,"button"))return w.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(w&&f.nodeName(a,"button"))return w.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e,g,h,i=a.nodeType;if(!!a&&i!==3&&i!==8&&i!==2){h=i!==1||!f.isXMLDoc(a),h&&(c=f.propFix[c]||c,g=f.propHooks[c]);return d!==b?g&&"set"in g&&(e=g.set(a,d,c))!==b?e:a[c]=d:g&&"get"in g&&(e=g.get(a,c))!==null?e:a[c]}},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):s.test(a.nodeName)||t.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabindex=f.propHooks.tabIndex,x={get:function(a,c){var d,e=f.prop(a,c);return e===!0||typeof e!="boolean"&&(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},v||(y={name:!0,id:!0},w=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&(y[c]?d.nodeValue!=="":d.specified)?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.attrHooks.tabindex.set=w.set,f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})}),f.attrHooks.contenteditable={get:w.get,set:function(a,b,c){b===""&&(b="false"),w.set(a,b,c)}}),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.enctype||(f.propFix.enctype="encoding"),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var z=/^(?:textarea|input|select)$/i,A=/^([^\.]*)?(?:\.(.+))?$/,B=/\bhover(\.\S+)?\b/,C=/^key/,D=/^(?:mouse|contextmenu)|click/,E=/^(?:focusinfocus|focusoutblur)$/,F=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,G=function(a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3].test((c["class"]||{}).value))},I=function(a){return f.event.special.hover?a:a.replace(B,"mouseenter$1 mouseleave$1")};-f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=f.trim(I(c)).split(" ");for(k=0;k<c.length;k++){l=A.exec(c[k])||[],m=l[1],n=(l[2]||"").split(".").sort(),s=f.event.special[m]||{},m=(g?s.delegateType:s.bindType)||m,s=f.event.special[m]||{},o=f.extend({type:m,origType:l[1],data:e,handler:d,guid:d.guid,selector:g,quick:G(g),namespace:n.join(".")},p),r=j[m];if(!r){r=j[m]=[],r.delegateCount=0;if(!s.setup||s.setup.call(a,e,n,i)===!1)a.addEventListener?a.addEventListener(m,i,!1):a.attachEvent&&a.attachEvent("on"+m,i)}s.add&&(s.add.call(a,o),o.handler.guid||(o.handler.guid=d.guid)),g?r.splice(r.delegateCount++,0,o):r.push(o),f.event.global[m]=!0}a=null}},global:{},remove:function(a,b,c,d,e){var g=f.hasData(a)&&f._data(a),h,i,j,k,l,m,n,o,p,q,r,s;if(!!g&&!!(o=g.events)){b=f.trim(I(b||"")).split(" ");for(h=0;h<b.length;h++){i=A.exec(b[h])||[],j=k=i[1],l=i[2];if(!j){for(j in o)f.event.remove(a,j+b[h],c,d,!0);continue}p=f.event.special[j]||{},j=(d?p.delegateType:p.bindType)||j,r=o[j]||[],m=r.length,l=l?new RegExp("(^|\\.)"+l.split(".").sort().join("\\.(?:.*\\.)?")+"(\\.|$)"):null;for(n=0;n<r.length;n++)s=r[n],(e||k===s.origType)&&(!c||c.guid===s.guid)&&(!l||l.test(s.namespace))&&(!d||d===s.selector||d==="**"&&s.selector)&&(r.splice(n--,1),s.selector&&r.delegateCount--,p.remove&&p.remove.call(a,s));r.length===0&&m!==r.length&&((!p.teardown||p.teardown.call(a,l)===!1)&&f.removeEvent(a,j,g.handle),delete o[j])}f.isEmptyObject(o)&&(q=g.handle,q&&(q.elem=null),f.removeData(a,["events","handle"],!0))}},customEvent:{getData:!0,setData:!0,changeData:!0},trigger:function(c,d,e,g){if(!e||e.nodeType!==3&&e.nodeType!==8){var h=c.type||c,i=[],j,k,l,m,n,o,p,q,r,s;if(E.test(h+f.event.triggered))return;h.indexOf("!")>=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"";if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,m=E.test(s+h)?e:e.parentNode,n=null;for(;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l<r.length&&!c.isPropagationStopped();l++)m=r[l][0],c.type=r[l][1],q=(f._data(m,"events")||{})[c.type]&&f._data(m,"handle"),q&&q.apply(m,d),q=o&&m[o],q&&f.acceptData(m)&&q.apply(m,d)===!1&&c.preventDefault();c.type=h,!g&&!c.isDefaultPrevented()&&(!p._default||p._default.apply(e.ownerDocument,d)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)&&o&&e[h]&&(h!=="focus"&&h!=="blur"||c.target.offsetWidth!==0)&&!f.isWindow(e)&&(n=e[o],n&&(e[o]=null),f.event.triggered=h,e[h](),f.event.triggered=b,n&&(e[o]=n));return c.result}},dispatch:function(c){c=f.event.fix(c||a.event);var d=(f._data(this,"events")||{})[c.type]||[],e=d.delegateCount,g=[].slice.call(arguments,0),h=!c.exclusive&&!c.namespace,i=[],j,k,l,m,n,o,p,q,r,s,t;g[0]=c,c.delegateTarget=this;if(e&&!c.target.disabled&&(!c.button||c.type!=="click")){m=f(this),m.context=this.ownerDocument||this;for(l=c.target;l!=this;l=l.parentNode||this){o={},q=[],m[0]=l;for(j=0;j<e;j++)r=d[j],s=r.selector,o[s]===b&&(o[s]=r.quick?H(l,r.quick):m.is(s)),o[s]&&q.push(r);q.length&&i.push({elem:l,matches:q})}}d.length>e&&i.push({elem:this,matches:d.slice(e)});for(j=0;j<i.length&&!c.isPropagationStopped();j++){p=i[j],c.currentTarget=p.elem;for(k=0;k<p.matches.length&&!c.isImmediatePropagationStopped();k++){r=p.matches[k];if(h||!c.namespace&&!r.namespace||c.namespace_re&&c.namespace_re.test(r.namespace))c.data=r.data,c.handleObj=r,n=((f.event.special[r.origType]||{}).handle||r.handler).apply(p.elem,g),n!==b&&(c.result=n,n===!1&&(c.preventDefault(),c.stopPropagation()))}}return c.result},props:"attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){a.which==null&&(a.which=b.charCode!=null?b.charCode:b.keyCode);return a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,d){var e,f,g,h=d.button,i=d.fromElement;a.pageX==null&&d.clientX!=null&&(e=a.target.ownerDocument||c,f=e.documentElement,g=e.body,a.pageX=d.clientX+(f&&f.scrollLeft||g&&g.scrollLeft||0)-(f&&f.clientLeft||g&&g.clientLeft||0),a.pageY=d.clientY+(f&&f.scrollTop||g&&g.scrollTop||0)-(f&&f.clientTop||g&&g.clientTop||0)),!a.relatedTarget&&i&&(a.relatedTarget=i===a.target?d.toElement:i),!a.which&&h!==b&&(a.which=h&1?1:h&2?3:h&4?2:0);return a}},fix:function(a){if(a[f.expando])return a;var d,e,g=a,h=f.event.fixHooks[a.type]||{},i=h.props?this.props.concat(h.props):this.props;a=f.Event(g);for(d=i.length;d;)e=i[--d],a[e]=g[e];a.target||(a.target=g.srcElement||c),a.target.nodeType===3&&(a.target=a.target.parentNode),a.metaKey===b&&(a.metaKey=a.ctrlKey);return h.filter?h.filter(a,g):a},special:{ready:{setup:f.bindReady},load:{noBubble:!0},focus:{delegateType:"focusin"},blur:{delegateType:"focusout"},beforeunload:{setup:function(a,b,c){f.isWindow(this)&&(this.onbeforeunload=c)},teardown:function(a,b){this.onbeforeunload===b&&(this.onbeforeunload=null)}}},simulate:function(a,b,c,d){var e=f.extend(new f.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?f.event.trigger(e,null,b):f.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},f.event.handle=f.event.dispatch,f.removeEvent=c.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)}:function(a,b,c){a.detachEvent&&a.detachEvent("on"+b,c)},f.Event=function(a,b){if(!(this instanceof f.Event))return new f.Event(a,b);a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||a.returnValue===!1||a.getPreventDefault&&a.getPreventDefault()?K:J):this.type=a,b&&f.extend(this,b),this.timeStamp=a&&a.timeStamp||f.now(),this[f.expando]=!0},f.Event.prototype={preventDefault:function(){this.isDefaultPrevented=K;var a=this.originalEvent;!a||(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){this.isPropagationStopped=K;var a=this.originalEvent;!a||(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=K,this.stopPropagation()},isDefaultPrevented:J,isPropagationStopped:J,isImmediatePropagationStopped:J},f.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){f.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c=this,d=a.relatedTarget,e=a.handleObj,g=e.selector,h;if(!d||d!==c&&!f.contains(c,d))a.type=e.origType,h=e.handler.apply(this,arguments),a.type=b;return h}}}),f.support.submitBubbles||(f.event.special.submit={setup:function(){if(f.nodeName(this,"form"))return!1;f.event.add(this,"click._submit keypress._submit",function(a){var c=a.target,d=f.nodeName(c,"input")||f.nodeName(c,"button")?c.form:b;d&&!d._submit_attached&&(f.event.add(d,"submit._submit",function(a){this.parentNode&&!a.isTrigger&&f.event.simulate("submit",this.parentNode,a,!0)}),d._submit_attached=!0)})},teardown:function(){if(f.nodeName(this,"form"))return!1;f.event.remove(this,"._submit")}}),f.support.changeBubbles||(f.event.special.change={setup:function(){if(z.test(this.nodeName)){if(this.type==="checkbox"||this.type==="radio")f.event.add(this,"propertychange._change",function(a){a.originalEvent.propertyName==="checked"&&(this._just_changed=!0)}),f.event.add(this,"click._change",function(a){this._just_changed&&!a.isTrigger&&(this._just_changed=!1,f.event.simulate("change",this,a,!0))});return!1}f.event.add(this,"beforeactivate._change",function(a){var b=a.target;z.test(b.nodeName)&&!b._change_attached&&(f.event.add(b,"change._change",function(a){this.parentNode&&!a.isSimulated&&!a.isTrigger&&f.event.simulate("change",this.parentNode,a,!0)}),b._change_attached=!0)})},handle:function(a){var b=a.target;if(this!==b||a.isSimulated||a.isTrigger||b.type!=="radio"&&b.type!=="checkbox")return a.handleObj.handler.apply(this,arguments)},teardown:function(){f.event.remove(this,"._change");return z.test(this.nodeName)}}),f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){var d=0,e=function(a){f.event.simulate(b,a.target,f.event.fix(a),!0)};f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.fn.extend({on:function(a,c,d,e,g){var h,i;if(typeof a=="object"){typeof c!="string"&&(d=c,c=b);for(i in a)this.on(i,c,d,a[i],g);return this}d==null&&e==null?(e=c,d=c=b):e==null&&(typeof c=="string"?(e=d,d=b):(e=d,d=c,c=b));if(e===!1)e=J;else if(!e)return this;g===1&&(h=e,e=function(a){f().off(a);return h.apply(this,arguments)},e.guid=h.guid||(h.guid=f.guid++));return this.each(function(){f.event.add(this,a,e,d,c)})},one:function(a,b,c,d){return this.on.call(this,a,b,c,d,1)},off:function(a,c,d){if(a&&a.preventDefault&&a.handleObj){var e=a.handleObj;f(a.delegateTarget).off(e.namespace?e.type+"."+e.namespace:e.type,e.selector,e.handler);return this}if(typeof a=="object"){for(var g in a)this.off(g,c,a[g]);return this}if(c===!1||typeof c=="function")d=c,c=b;d===!1&&(d=J);return this.each(function(){f.event.remove(this,a,d,c)})},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},live:function(a,b,c){f(this.context).on(a,this.selector,b,c);return this},die:function(a,b){f(this.context).off(a,this.selector||"**",b);return this},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return arguments.length==1?this.off(a,"**"):this.off(b,a,c)},trigger:function(a,b){return this.each(function(){f.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0])return f.event.trigger(a,b,this[0],!0)},toggle:function(a){var b=arguments,c=a.guid||f.guid++,d=0,e=function(c){var e=(f._data(this,"lastToggle"+a.guid)||0)%d;f._data(this,"lastToggle"+a.guid,e+1),c.preventDefault();return b[e].apply(this,arguments)||!1};e.guid=c;while(d<b.length)b[d++].guid=c;return this.click(e)},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}}),f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){f.fn[b]=function(a,c){c==null&&(c=a,a=null);return arguments.length>0?this.on(b,null,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),C.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),D.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}if(j.nodeType===1){g||(j[d]=c,j.sizset=h);if(typeof b!="string"){if(j===b){k=!0;break}}else if(m.filter(b,[j]).length>0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}j.nodeType===1&&!g&&(j[d]=c,j.sizset=h);if(j.nodeName.toLowerCase()===b){k=j;break}j=j[a]}e[h]=k}}}var a=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b<a.length;b++)a[b]===a[b-1]&&a.splice(b--,1)}return a},m.matches=function(a,b){return m(a,null,null,b)},m.matchesSelector=function(a,b){return m(b,null,null,[a]).length>0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e<f;e++){h=o.order[e];if(g=o.leftMatch[h].exec(a)){i=g[1],g.splice(1,1);if(i.substr(i.length-1)!=="\\"){g[1]=(g[1]||"").replace(j,""),d=o.find[h](g,b,c);if(d!=null){a=a.replace(o.match[h],"");break}}}}d||(d=typeof b.getElementsByTagName!="undefined"?b.getElementsByTagName("*"):[]);return{set:d,expr:a}},m.filter=function(a,c,d,e){var f,g,h,i,j,k,l,n,p,q=a,r=[],s=c,t=c&&c[0]&&m.isXML(c[0]);while(a&&c.length){for(h in o.filter)if((f=o.leftMatch[h].exec(a))!=null&&f[2]){k=o.filter[h],l=f[1],g=!1,f.splice(1,1);if(l.substr(l.length-1)==="\\")continue;s===r&&(r=[]);if(o.preFilter[h]){f=o.preFilter[h](f,s,d,r,e,t);if(!f)g=i=!0;else if(f===!0)continue}if(f)for(n=0;(j=s[n])!=null;n++)j&&(i=k(j,f,n,s),p=e^i,d&&i!=null?p?g=!0:s[n]=!1:p&&(r.push(j),g=!0));if(i!==b){d||(s=r),a=a.replace(o.match[h],"");if(!g)return[];break}}if(a===q)if(g==null)m.error(a);else break;q=a}return s},m.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)};var n=m.getText=function(a){var b,c,d=a.nodeType,e="";if(d){if(d===1||d===9){if(typeof a.textContent=="string")return a.textContent;if(typeof a.innerText=="string")return a.innerText.replace(k,"");for(a=a.firstChild;a;a=a.nextSibling)e+=n(a)}else if(d===3||d===4)return a.nodeValue}else for(b=0;c=a[b];b++)c.nodeType!==8&&(e+=n(c));return e},o=m.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(a){return a.getAttribute("href")},type:function(a){return a.getAttribute("type")}},relative:{"+":function(a,b){var c=typeof b=="string",d=c&&!l.test(b),e=c&&!d;d&&(b=b.toLowerCase());for(var f=0,g=a.length,h;f<g;f++)if(h=a[f]){while((h=h.previousSibling)&&h.nodeType!==1);a[f]=e||h&&h.nodeName.toLowerCase()===b?h||!1:h===b}e&&m.filter(b,a,!0)},">":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e<f;e++){c=a[e];if(c){var g=c.parentNode;a[e]=g.nodeName.toLowerCase()===b?g:!1}}}else{for(;e<f;e++)c=a[e],c&&(a[e]=d?c.parentNode:c.parentNode===b);d&&m.filter(b,a,!0)}},"":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("parentNode",b,f,a,d,c)},"~":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("previousSibling",b,f,a,d,c)}},find:{ID:function(a,b,c){if(typeof b.getElementById!="undefined"&&!c){var d=b.getElementById(a[1]);return d&&d.parentNode?[d]:[]}},NAME:function(a,b){if(typeof b.getElementsByName!="undefined"){var c=[],d=b.getElementsByName(a[1]);for(var e=0,f=d.length;e<f;e++)d[e].getAttribute("name")===a[1]&&c.push(d[e]);return c.length===0?null:c}},TAG:function(a,b){if(typeof b.getElementsByTagName!="undefined")return b.getElementsByTagName(a[1])}},preFilter:{CLASS:function(a,b,c,d,e,f){a=" "+a[1].replace(j,"")+" ";if(f)return a;for(var g=0,h;(h=b[g])!=null;g++)h&&(e^(h.className&&(" "+h.className+" ").replace(/[\t\n\r]/g," ").indexOf(a)>=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return b<c[3]-0},gt:function(a,b,c){return b>c[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h<i;h++)if(g[h]===a)return!1;return!0}m.error(e)},CHILD:function(a,b){var c,e,f,g,h,i,j,k=b[1],l=a;switch(k){case"only":case"first":while(l=l.previousSibling)if(l.nodeType===1)return!1;if(k==="first")return!0;l=a;case"last":while(l=l.nextSibling)if(l.nodeType===1)return!1;return!0;case"nth":c=b[2],e=b[3];if(c===1&&e===0)return!0;f=b[0],g=a.parentNode;if(g&&(g[d]!==f||!a.nodeIndex)){i=0;for(l=g.firstChild;l;l=l.nextSibling)l.nodeType===1&&(l.nodeIndex=++i);g[d]=f}j=a.nodeIndex-e;return c===0?j===0:j%c===0&&j/c>=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c<e;c++)d.push(a[c]);else for(;a[c];c++)d.push(a[c]);return d}}var u,v;c.documentElement.compareDocumentPosition?u=function(a,b){if(a===b){h=!0;return 0}if(!a.compareDocumentPosition||!b.compareDocumentPosition)return a.compareDocumentPosition?-1:1;return a.compareDocumentPosition(b)&4?-1:1}:(u=function(a,b){if(a===b){h=!0;return 0}if(a.sourceIndex&&b.sourceIndex)return a.sourceIndex-b.sourceIndex;var c,d,e=[],f=[],g=a.parentNode,i=b.parentNode,j=g;if(g===i)return v(a,b);if(!g)return-1;if(!i)return 1;while(j)e.unshift(j),j=j.parentNode;j=i;while(j)f.unshift(j),j=j.parentNode;c=e.length,d=f.length;for(var k=0;k<c&&k<d;k++)if(e[k]!==f[k])return v(e[k],f[k]);return k===c?v(a,f[k],-1):v(e[k],b,1)},v=function(a,b,c){if(a===b)return c;var d=a.nextSibling;while(d){if(d===b)return-1;d=d.nextSibling}return 1}),function(){var a=c.createElement("div"),d="script"+(new Date).getTime(),e=c.documentElement;a.innerHTML="<a name='"+d+"'/>",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="<a href='#'></a>",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="<p class='TEST'></p>";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="<div class='test e'></div><div class='test'></div>";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h<i;h++)m(a,g[h],e,c);return m.filter(f,e)};m.attr=f.attr,m.selectors.attrMap={},f.find=m,f.expr=m.selectors,f.expr[":"]=f.expr.filters,f.unique=m.uniqueSort,f.text=m.getText,f.isXMLDoc=m.isXML,f.contains=m.contains}();var L=/Until$/,M=/^(?:parents|prevUntil|prevAll)/,N=/,/,O=/^.[^:#\[\.,]*$/,P=Array.prototype.slice,Q=f.expr.match.POS,R={children:!0,contents:!0,next:!0,prev:!0};f.fn.extend({find:function(a){var b=this,c,d;if(typeof a!="string")return f(a).filter(function(){for(c=0,d=b.length;c<d;c++)if(f.contains(b[c],this))return!0});var e=this.pushStack("","find",a),g,h,i;for(c=0,d=this.length;c<d;c++){g=e.length,f.find(a,this[c],e);if(c>0)for(h=g;h<e.length;h++)for(i=0;i<g;i++)if(e[i]===e[h]){e.splice(h--,1);break}}return e},has:function(a){var b=f(a);return this.filter(function(){for(var a=0,c=b.length;a<c;a++)if(f.contains(this,b[a]))return!0})},not:function(a){return this.pushStack(T(this,a,!1),"not",a)},filter:function(a){return this.pushStack(T(this,a,!0),"filter",a)},is:function(a){return!!a&&(typeof a=="string"?Q.test(a)?f(a,this.context).index(this[0])>=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d<a.length;d++)f(g).is(a[d])&&c.push({selector:a[d],elem:g,level:h});g=g.parentNode,h++}return c}var i=Q.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d<e;d++){g=this[d];while(g){if(i?i.index(g)>-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(S(c[0])||S(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c);L.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!R[a]?f.unique(e):e,(this.length>1||N.test(d))&&M.test(a)&&(e=e.reverse());return this.pushStack(e,a,P.call(arguments).join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var V="abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/<tbody/i,_=/<|&#?\w+;/,ba=/<(?:script|style)/i,bb=/<(?:script|object|embed|option|style)/i,bc=new RegExp("<(?:"+V+")","i"),bd=/checked\s*(?:[^=]|=\s*.checked.)/i,be=/\/(java|ecma)script/i,bf=/^\s*<!(?:\[CDATA\[|\-\-)/,bg={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]},bh=U(c);bg.optgroup=bg.option,bg.tbody=bg.tfoot=bg.colgroup=bg.caption=bg.thead,bg.th=bg.td,f.support.htmlSerialize||(bg._default=[1,"div<div>","</div>"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=f.isFunction(a);return this.each(function(c){f(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f.clean(arguments));return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function()-{for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!bg[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1></$2>");try{for(var c=0,d=this.length;c<d;c++)this[c].nodeType===1&&(f.cleanData(this[c].getElementsByTagName("*")),this[c].innerHTML=a)}catch(e){this.empty().append(a)}}else f.isFunction(a)?this.each(function(b){var c=f(this);c.html(a.call(this,b,c.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(f.isFunction(a))return this.each(function(b){var c=f(this),d=c.html();c.replaceWith(a.call(this,b,d))});typeof a!="string"&&(a=f(a).detach());return this.each(function(){var b=this.nextSibling,c=this.parentNode;f(this).remove(),b?f(b).before(a):f(c).append(a)})}return this.length?this.pushStack(f(f.isFunction(a)?a():a),"replaceWith",a):this},detach:function(a){return this.remove(a,!0)},domManip:function(a,c,d){var e,g,h,i,j=a[0],k=[];if(!f.support.checkClone&&arguments.length===3&&typeof j=="string"&&bd.test(j))return this.each(function(){f(this).domManip(a,c,d,!0)});if(f.isFunction(j))return this.each(function(e){var g=f(this);a[0]=j.call(this,e,c?g.html():b),g.domManip(a,c,d)});if(this[0]){i=j&&j.parentNode,f.support.parentNode&&i&&i.nodeType===11&&i.childNodes.length===this.length?e={fragment:i}:e=f.buildFragment(a,this,k),h=e.fragment,h.childNodes.length===1?g=h=h.firstChild:g=h.firstChild;if(g){c=c&&f.nodeName(g,"tr");for(var l=0,m=this.length,n=m-1;l<m;l++)d.call(c?bi(this[l],g):this[l],e.cacheable||m>1&&l<n?f.clone(h,!0,!0):h)}k.length&&f.each(k,bp)}return this}}),f.buildFragment=function(a,b,d){var e,g,h,i,j=a[0];b&&b[0]&&(i=b[0].ownerDocument||b[0]),i.createDocumentFragment||(i=c),a.length===1&&typeof j=="string"&&j.length<512&&i===c&&j.charAt(0)==="<"&&!bb.test(j)&&(f.support.checkClone||!bd.test(j))&&(f.support.html5Clone||!bc.test(j))&&(g=!0,h=f.fragments[j],h&&h!==1&&(e=h)),e||(e=i.createDocumentFragment(),f.clean(a,i,e,d)),g&&(f.fragments[j]=h?e:1);return{fragment:e,cacheable:g}},f.fragments={},f.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){f.fn[a]=function(c){var d=[],e=f(c),g=this.length===1&&this[0].parentNode;if(g&&g.nodeType===11&&g.childNodes.length===1&&e.length===1){e[b](this[0]);return this}for(var h=0,i=e.length;h<i;h++){var j=(h>0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d,e,g,h=f.support.html5Clone||!bc.test("<"+a.nodeName)?a.cloneNode(!0):bo(a);if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bk(a,h),d=bl(a),e=bl(h);for(g=0;d[g];++g)e[g]&&bk(d[g],e[g])}if(b){bj(a,h);if(c){d=bl(a),e=bl(h);for(g=0;d[g];++g)bj(d[g],e[g])}}d=e=null;return h},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1></$2>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=bg[l]||bg._default,n=m[0],o=b.createElement("div");b===c?bh.appendChild(o):U(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]==="<table>"&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i<r;i++)bn(k[i]);else bn(k);k.nodeType?h.push(k):h=f.merge(h,k)}if(d){g=function(a){return!a.type||be.test(a.type)};for(j=0;h[j];j++)if(e&&f.nodeName(h[j],"script")&&(!h[j].type||h[j].type.toLowerCase()==="text/javascript"))e.push(h[j].parentNode?h[j].parentNode.removeChild(h[j]):h[j]);else{if(h[j].nodeType===1){var s=f.grep(h[j].getElementsByTagName("script"),g);h.splice.apply(h,[j+1,0].concat(s))}d.appendChild(h[j])}}return h},cleanData:function(a){var b,c,d=f.cache,e=f.event.special,g=f.support.deleteExpando;for(var h=0,i;(i=a[h])!=null;h++){if(i.nodeName&&f.noData[i.nodeName.toLowerCase()])continue;c=i[f.expando];if(c){b=d[c];if(b&&b.events){for(var j in b.events)e[j]?f.event.remove(i,j):f.removeEvent(i,j,b.handle);b.handle&&(b.handle.elem=null)}g?delete i[f.expando]:i.removeAttribute&&i.removeAttribute(f.expando),delete d[c]}}}});var bq=/alpha\([^)]*\)/i,br=/opacity=([^)]*)/,bs=/([A-Z]|^ms)/g,bt=/^-?\d+(?:px)?$/i,bu=/^-?\d/,bv=/^([\-+])=([\-+.\de]+)/,bw={position:"absolute",visibility:"hidden",display:"block"},bx=["Left","Right"],by=["Top","Bottom"],bz,bA,bB;f.fn.css=function(a,c){if(arguments.length===2&&c===b)return this;return f.access(this,a,c,!0,function(a,c,d){return d!==b?f.style(a,c,d):f.css(a,c)})},f.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=bz(a,"opacity","opacity");return c===""?"1":c}return a.style.opacity}}},cssNumber:{fillOpacity:!0,fontWeight:!0,lineHeight:!0,opacity:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":f.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,c,d,e){if(!!a&&a.nodeType!==3&&a.nodeType!==8&&!!a.style){var g,h,i=f.camelCase(c),j=a.style,k=f.cssHooks[i];c=f.cssProps[i]||i;if(d===b){if(k&&"get"in k&&(g=k.get(a,!1,e))!==b)return g;return j[c]}h=typeof d,h==="string"&&(g=bv.exec(d))&&(d=+(g[1]+1)*+g[2]+parseFloat(f.css(a,c)),h="number");if(d==null||h==="number"&&isNaN(d))return;h==="number"&&!f.cssNumber[i]&&(d+="px");if(!k||!("set"in k)||(d=k.set(a,d))!==b)try{j[c]=d}catch(l){}}},css:function(a,c,d){var e,g;c=f.camelCase(c),g=f.cssHooks[c],c=f.cssProps[c]||c,c==="cssFloat"&&(c="float");if(g&&"get"in g&&(e=g.get(a,!0,d))!==b)return e;if(bz)return bz(a,c)},swap:function(a,b,c){var d={};for(var e in b)d[e]=a.style[e],a.style[e]=b[e];c.call(a);for(e in b)a.style[e]=d[e]}}),f.curCSS=f.css,f.each(["height","width"],function(a,b){f.cssHooks[b]={get:function(a,c,d){var e;if(c){if(a.offsetWidth!==0)return bC(a,b,d);f.swap(a,bw,function(){e=bC(a,b,d)});return e}},set:function(a,b){if(!bt.test(b))return b;b=parseFloat(b);if(b>=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return br.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bq,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bq.test(g)?g.replace(bq,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bz(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bA=function(a,b){var c,d,e;b=b.replace(bs,"-$1").toLowerCase(),(d=a.ownerDocument.defaultView)&&(e=d.getComputedStyle(a,null))&&(c=e.getPropertyValue(b),c===""&&!f.contains(a.ownerDocument.documentElement,a)&&(c=f.style(a,b)));return c}),c.documentElement.currentStyle&&(bB=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bt.test(f)&&bu.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bz=bA||bB,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bD=/%20/g,bE=/\[\]$/,bF=/\r?\n/g,bG=/#.*$/,bH=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bI=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bJ=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bK=/^(?:GET|HEAD)$/,bL=/^\/\//,bM=/\?/,bN=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,bO=/^(?:select|textarea)/i,bP=/\s+/,bQ=/([?&])_=[^&]*/,bR=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bS=f.fn.load,bT={},bU={},bV,bW,bX=["*/"]+["*"];try{bV=e.href}catch(bY){bV=c.createElement("a"),bV.href="",bV=bV.href}bW=bR.exec(bV.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bS)return bS.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("<div>").append(c.replace(bN,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bO.test(this.nodeName)||bI.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bF,"\r\n")}}):{name:b.name,value:c.replace(bF,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.on(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?b_(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),b_(a,b);return a},ajaxSettings:{url:bV,isLocal:bJ.test(bW[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bX},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bZ(bT),ajaxTransport:bZ(bU),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cb(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=cc(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bH.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bG,"").replace(bL,bW[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bP),d.crossDomain==null&&(r=bR.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bW[1]&&r[2]==bW[2]&&(r[3]||(r[1]==="http:"?80:443))==(bW[3]||(bW[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),b$(bT,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bK.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bM.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bQ,"$1_="+x);d.url=y+(y===d.url?(bM.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bX+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=b$(bU,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){if(s<2)w(-1,z);else throw z}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)ca(g,a[g],c,e);return d.join("&").replace(bD,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cd=f.now(),ce=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cd++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ce.test(b.url)||e&&ce.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ce,l),b.url===j&&(e&&(k=k.replace(ce,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cf=a.ActiveXObject?function(){for(var a in ch)ch[a](0,1)}:!1,cg=0,ch;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ci()||cj()}:ci,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cf&&delete ch[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cg,cf&&(ch||(ch={},f(a).unload(cf)),ch[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var ck={},cl,cm,cn=/^(?:toggle|show|hide)$/,co=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cp,cq=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cr;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cu("show",3),a,b,c);for(var g=0,h=this.length;g<h;g++)d=this[g],d.style&&(e=d.style.display,!f._data(d,"olddisplay")&&e==="none"&&(e=d.style.display=""),e===""&&f.css(d,"display")==="none"&&f._data(d,"olddisplay",cv(d.nodeName)));for(g=0;g<h;g++){d=this[g];if(d.style){e=d.style.display;if(e===""||e==="none")d.style.display=f._data(d,"olddisplay")||""}}return this},hide:function(a,b,c){if(a||a===0)return this.animate(cu("hide",3),a,b,c);var d,e,g=0,h=this.length;for(;g<h;g++)d=this[g],d.style&&(e=f.css(d,"display"),e!=="none"&&!f._data(d,"olddisplay")&&f._data(d,"olddisplay",e));for(g=0;g<h;g++)this[g].style&&(this[g].style.display="none");return this},_toggle:f.fn.toggle,toggle:function(a,b,c){var d=typeof a=="boolean";f.isFunction(a)&&f.isFunction(b)?this._toggle.apply(this,arguments):a==null||d?this.each(function(){var b=d?a:f(this).is(":hidden");f(this)[b?"show":"hide"]()}):this.animate(cu("toggle",3),a,b,c);return this},fadeTo:function(a,b,c,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){function g(){e.queue===!1&&f._mark(this);var b=f.extend({},e),c=this.nodeType===1,d=c&&f(this).is(":hidden"),g,h,i,j,k,l,m,n,o;b.animatedProperties={};for(i in a){g=f.camelCase(i),i!==g&&(a[g]=a[i],delete a[i]),h=a[g],f.isArray(h)?(b.animatedProperties[g]=h[1],h=a[g]=h[0]):b.animatedProperties[g]=b.specialEasing&&b.specialEasing[g]||b.easing||"swing";if(h==="hide"&&d||h==="show"&&!d)return b.complete.call(this);c&&(g==="height"||g==="width")&&(b.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY],f.css(this,"display")==="inline"&&f.css(this,"float")==="none"&&(!f.support.inlineBlockNeedsLayout||cv(this.nodeName)==="inline"?this.style.display="inline-block":this.style.zoom=1))}b.overflow!=null&&(this.style.overflow="hidden");for(i in a)j=new f.fx(this,b,i),h=a[i],cn.test(h)?(o=f._data(this,"toggle"+i)||(h==="toggle"?d?"show":"hide":0),o?(f._data(this,"toggle"+i,o==="show"?"hide":"show"),j[o]()):j[h]()):(k=co.exec(h),l=j.cur(),k?(m=parseFloat(k[2]),n=k[3]||(f.cssNumber[i]?"":"px"),n!=="px"&&(f.style(this,i,(m||1)+n),l=(m||1)/j.cur()*l,f.style(this,i,l+n)),k[1]&&(m=(k[1]==="-="?-1:1)*m+l),j.custom(l,m,n)):j.custom(l,h,""));return!0}var e=f.speed(b,c,d);if(f.isEmptyObject(a))return this.each(e.complete,[!1]);a=f.extend({},a);return e.queue===!1?this.each(g):this.queue(e.queue,g)},stop:function(a,c,d){typeof a!="string"&&(d=c,c=a,a=b),c&&a!==!1&&this.queue(a||"fx",[]);return this.each(function(){function h(a,b,c){var e=b[c];f.removeData(a,c,!0),e.stop(d)}var b,c=!1,e=f.timers,g=f._data(this);d||f._unmark(!0,this);if(a==null)for(b in g)g[b]&&g[b].stop&&b.indexOf(".run")===b.length-4&&h(this,g,b);else g[b=a+".run"]&&g[b].stop&&h(this,g,b);for(b=e.length;b--;)e[b].elem===this&&(a==null||e[b].queue===a)&&(d?e[b](!0):e[b].saveState(),c=!0,e.splice(b,1));(!d||!c)&&f.dequeue(this,a)})}}),f.each({slideDown:cu("show",1),slideUp:cu("hide",1),slideToggle:cu("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){f.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),f.extend({speed:function(a,b,c){var d=a&&typeof a=="object"?f.extend({},a):{complete:c||!c&&b||f.isFunction(a)&&a,duration:a,easing:c&&b||b&&!f.isFunction(b)&&b};d.duration=f.fx.off?0:typeof d.duration=="number"?d.duration:d.duration in f.fx.speeds?f.fx.speeds[d.duration]:f.fx.speeds._default;if(d.queue==null||d.queue===!0)d.queue="fx";d.old=d.complete,d.complete=function(a){f.isFunction(d.old)&&d.old.call(this),d.queue?f.dequeue(this,d.queue):a!==!1&&f._unmark(this)};return d},easing:{linear:function(a,b,c,d){return c+d*a},swing:function(a,b,c,d){return(-Math.cos(a*Math.PI)/2+.5)*d+c}},timers:[],fx:function(a,b,c){this.options=b,this.elem=a,this.prop=c,b.orig=b.orig||{}}}),f.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this),(f.fx.step[this.prop]||f.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a,b=f.css(this.elem,this.prop);return isNaN(a=parseFloat(b))?!b||b==="auto"?0:b:a},custom:function(a,c,d){function h(a){return e.step(a)}var e=this,g=f.fx;this.startTime=cr||cs(),this.end=c,this.now=this.start=a,this.pos=this.state=0,this.unit=d||this.unit||(f.cssNumber[this.prop]?"":"px"),h.queue=this.options.queue,h.elem=this.elem,h.saveState=function(){e.options.hide&&f._data(e.elem,"fxshow"+e.prop)===b&&f._data(e.elem,"fxshow"+e.prop,e.start)},h()&&f.timers.push(h)&&!cp&&(cp=setInterval(g.tick,g.interval))},show:function(){var a=f._data(this.elem,"fxshow"+this.prop);this.options.orig[this.prop]=a||f.style(this.elem,this.prop),this.options.show=!0,a!==b?this.custom(this.cur(),a):this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur()),f(this.elem).show()},hide:function(){this.options.orig[this.prop]=f._data(this.elem,"fxshow"+this.prop)||f.style(this.elem,this.prop),this.options.hide=!0,this.custom(this.cur(),0)},step:function(a){var b,c,d,e=cr||cs(),g=!0,h=this.elem,i=this.options;if(a||e>=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c<b.length;c++)a=b[c],!a()&&b[c]===a&&b.splice(c--,1);b.length||f.fx.stop()},interval:13,stop:function(){clearInterval(cp),cp=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){f.style(a.elem,"opacity",a.now)},_default:function(a){a.elem.style&&a.elem.style[a.prop]!=null?a.elem.style[a.prop]=a.now+a.unit:a.elem[a.prop]=a.now}}}),f.each(["width","height"],function(a,b){f.fx.step[b]=function(a){f.style(a.elem,b,Math.max(0,a.now)+a.unit)}}),f.expr&&f.expr.filters&&(f.expr.filters.animated=function(a){return f.grep(f.timers,function(b){return a===b.elem}).length});var cw=/^t(?:able|d|h)$/i,cx=/^(?:body|html)$/i;"getBoundingClientRect"in c.documentElement?f.fn.offset=function(a){var b=this[0],c;if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);try{c=b.getBoundingClientRect()}catch(d){}var e=b.ownerDocument,g=e.documentElement;if(!c||!f.contains(g,b))return c?{top:c.top,left:c.left}:{top:0,left:0};var h=e.body,i=cy(e),j=g.clientTop||h.clientTop||0,k=g.clientLeft||h.clientLeft||0,l=i.pageYOffset||f.support.boxModel&&g.scrollTop||h.scrollTop,m=i.pageXOffset||f.support.boxModel&&g.scrollLeft||h.scrollLeft,n=c.top+l-j,o=c.left+m-k;return{top:n,left:o}}:f.fn.offset=function(a){var b=this[0];if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);var c,d=b.offsetParent,e=b,g=b.ownerDocument,h=g.documentElement,i=g.body,j=g.defaultView,k=j?j.getComputedStyle(b,null):b.currentStyle,l=b.offsetTop,m=b.offsetLeft;while((b=b.parentNode)&&b!==i&&b!==h){if(f.support.fixedPosition&&k.position==="fixed")break;c=j?j.getComputedStyle(b,null):b.currentStyle,l-=b.scrollTop,m-=b.scrollLeft,b===d&&(l+=b.offsetTop,m+=b.offsetLeft,f.support.doesNotAddBorder&&(!f.support.doesAddBorderForTableAndCells||!cw.test(b.nodeName))&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),e=d,d=b.offsetParent),f.support.subtractsBorderForOverflowNotVisible&&c.overflow!=="visible"&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),k=c}if(k.position==="relative"||k.position==="static")l+=i.offsetTop,m+=i.offsetLeft;f.support.fixedPosition&&k.position==="fixed"&&(l+=Math.max(h.scrollTop,i.scrollTop),m+=Math.max(h.scrollLeft,i.scrollLeft));return{top:l,left:m}},f.offset={bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.support.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cx.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cx.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cy(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cy(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f,typeof define=="function"&&define.amd&&define.amd.jQuery&&define("jquery",[],function(){return f})})(window);

@@ -1,17 +1,17 @@ Name:                threepenny-gui-Version:             0.5.0.0+Version:             0.6.0.1 Synopsis:            GUI framework that uses the web browser as a display. Description:     Threepenny-GUI is a GUI framework that uses the web browser as a display.     .-    It's cheap and easy to install because everyone has a web browser installed.+    It's very easy to install because everyone has a web browser installed.     .-    Internally, the library implements a small web server-    that serves a HTML/JavaScript page with the GUI elements.-    You can freely manipulate the HTML DOM and handle browser events+    A program written with Threepenny is essentially a small web server that+    displays the user interface as a web page to any browser that connects to it.+    You can freely manipulate the HTML DOM and handle JavaScript events     from your Haskell code.     .-    Stability forecast: This is an experimental release! Send us your feedback!+    Stability forecast: This is an experimental release! Send me your feedback!     Significant API changes are likely in future versions.     .     NOTE: This library contains examples, but they are not built by default.@@ -21,9 +21,9 @@  License:             BSD3 License-file:        LICENSE-Author:              Chris Done, Heinrich Apfelmus+Author:              Heinrich Apfelmus Maintainer:          Heinrich Apfelmus <apfelmus at quantentunnel dot de>-Homepage:            http://www.haskell.org/haskellwiki/Threepenny-gui+Homepage:            http://wiki.haskell.org/Threepenny-gui bug-reports:         https://github.com/HeinrichApfelmus/threepenny-gui/issues Category:            Web, GUI Build-type:          Simple@@ -32,16 +32,17 @@ Extra-Source-Files:  CHANGELOG.md                     ,README.md                     ,samples/README.md-                    ,src/Graphics/UI/*.html-                    ,src/Graphics/UI/*.js-                    ,src/Graphics/UI/*.css+                    ,js/*.html+                    ,js/*.css+                    ,js/*.js+                    ,js/lib/*.js -Data-dir:            .-Data-files:          wwwroot/css/*.css-                    ,wwwroot/css/*.png-                    ,wwwroot/*.html-                    ,wwwroot/*.txt-                    ,wwwroot/*.wav+Data-dir:           .+Data-files:          samples/static/css/*.css+                    ,samples/static/css/*.png+                    ,samples/static/*.html+                    ,samples/static/*.png+                    ,samples/static/*.wav   flag buildExamples@@ -54,7 +55,8 @@  flag rebug     description: The library uses some techniques that are highly-                 non-deterministic, for example garbage collection and concurrency.+                 non-deterministic, for example garbage collection+                 and concurrency.                  Bugs in these subsystems are harder to find.                  Activating this flag will expose more of them.     default:     False@@ -67,10 +69,12 @@ Library   hs-source-dirs:    src   exposed-modules:-                     Graphics.UI.Threepenny+                     Foreign.JavaScript+                    ,Foreign.RemotePtr+                    ,Graphics.UI.Threepenny                     ,Graphics.UI.Threepenny.Attributes-                    ,Graphics.UI.Threepenny.Core                     ,Graphics.UI.Threepenny.Canvas+                    ,Graphics.UI.Threepenny.Core                     ,Graphics.UI.Threepenny.DragNDrop                     ,Graphics.UI.Threepenny.Elements                     ,Graphics.UI.Threepenny.Events@@ -81,15 +85,14 @@                     ,Graphics.UI.Threepenny.Timer                     ,Graphics.UI.Threepenny.Widgets                     ,Reactive.Threepenny-                    ,Foreign.Coupon   other-modules:-                     Control.Concurrent.Chan.Extra-                    ,Control.Concurrent.Delay-                    ,Graphics.UI.Threepenny.Internal.Driver-                    ,Graphics.UI.Threepenny.Internal.FFI-                    ,Graphics.UI.Threepenny.Internal.Include-                    ,Graphics.UI.Threepenny.Internal.Resources-                    ,Graphics.UI.Threepenny.Internal.Types+                     Foreign.JavaScript.EventLoop+                    ,Foreign.JavaScript.Include+                    ,Foreign.JavaScript.Marshal+                    ,Foreign.JavaScript.Resources+                    ,Foreign.JavaScript.Server+                    ,Foreign.JavaScript.Types+                    ,Graphics.UI.Threepenny.Internal                     ,Reactive.Threepenny.Memo                     ,Reactive.Threepenny.Monads                     ,Reactive.Threepenny.PulseLatch@@ -99,30 +102,32 @@   cpp-options:      -DCABAL   if flag(rebug)       cpp-options:  -DREBUG-      ghc-options:  -O2   -  build-depends:     base                   >= 4     && < 5-                    ,aeson                  >= 0.6   && < 0.9+      ghc-options:  -O2 -threaded+  build-depends:     base                   >= 4.3   && < 4.9+                    ,aeson                  >= 0.7   && < 0.9+                    ,async                  == 2.0.*                     ,attoparsec-enumerator  == 0.3.*                     ,bytestring             >= 0.9.2 && < 0.11                     ,containers             >= 0.4.2 && < 0.6                     ,data-default           == 0.5.*-                    ,deepseq                == 1.3.*-                    ,filepath               == 1.3.*-                    ,hashable               >= 1.1.0  && < 1.3+                    ,deepseq                >= 1.3.0 && < 1.5+                    ,filepath               >= 1.3.0 && < 1.5.0+                    ,hashable               >= 1.1.0 && < 1.3                     ,MonadCatchIO-transformers == 0.3.*                     ,safe                   == 0.3.*                     ,snap-server            == 0.9.*                     ,snap-core              == 0.9.*-                    ,stm                    >= 2.3    && < 2.5-                    ,template-haskell       >= 2.7.0  && < 2.10+                    ,stm                    >= 2.2    && < 2.5+                    ,template-haskell       >= 2.7.0  && < 2.11                     ,text                   >= 0.11   && < 1.3-                    ,time                   == 1.4.*+                    ,time                   >= 1.4    && < 1.6                     ,transformers           >= 0.3.0  && < 0.5                     ,unordered-containers   == 0.2.*                     ,utf8-string            == 0.3.*                     ,websockets             >= 0.8    && < 0.10                     ,websockets-snap        >= 0.8    && < 0.10                     ,vault                  == 0.3.*+                    ,vector                 >= 0.10   && < 0.11   if flag(network-uri)       build-depends: network-uri            >= 2.6    && < 2.7   else@@ -152,6 +157,17 @@     other-modules:     Paths_threepenny_gui, Paths     hs-source-dirs:    samples +Executable threepenny-examples-canvas+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,filepath+                          ,threepenny-gui+    else+        buildable: False+    main-is:           Canvas.hs+    hs-source-dirs:    samples+ Executable threepenny-examples-chat     if flag(buildExamples)         cpp-options:       -DCABAL@@ -209,31 +225,5 @@     else         buildable: False     main-is:           DrumMachine.hs-    other-modules:     Paths_threepenny_gui, Paths-    hs-source-dirs:    samples--Executable threepenny-examples-missing-dollars-    if flag(buildExamples)-        cpp-options:       -DCABAL-        build-depends:     base                      >= 4     && < 5-                          ,filepath-                          ,threepenny-gui-                          ,safe-    else-        buildable: False-    main-is:           MissingDollars.hs-    other-modules:     Paths_threepenny_gui, Paths-    hs-source-dirs:    samples--Executable threepenny-examples-use-words-    if flag(buildExamples)-        cpp-options:       -DCABAL-        build-depends:     base                      >= 4     && < 5-                          ,threepenny-gui-                          ,filepath-                          ,parsec-    else-        buildable: False-    main-is:           UseWords.hs     other-modules:     Paths_threepenny_gui, Paths     hs-source-dirs:    samples

@@ -1,77 +0,0 @@-And then there's {favourite-language}...-{br}-{favourite-language} is like "that girl."  You know the one...-{br}-You never really went steady, but you'd run into her from time to time-while knocking around in disreputable joints, usually late at night,-every several months or so.  She looked so hot, so sleek, so sexy, so-expressive, so exotic.  You'd end up back at her place and the night-would just...  take off.  A complete blur of hot, sweaty, feverish,-delirious, fumbling passion.  You'd do things to each other...  you'd-do things to her, she'd do things to you...  things that you're not-even sure have names, that you're pretty sure are illegal almost-anywhere.  Even her kinks have kinks --- and after one of these-nights, you'd realize that you yourself had a lot more kinks than you.-And it wasn't just physical, it was --- cerebral.  Ethereal.-Transcendent.  But it would all whiz by in a blur, and by morning-you'd find yourself lightheaded, a bit confused, and stumbling-homeward to your regular gal.-{br}-Over the next few days and weeks you'd find yourself occasionally-drifting away, thinking about her.  {favourite-language}.  You'd be-there, banging away at your regular girl, and find yourself thinking-"you know, if I was with {favourite-language}, I'd be doing this-completely differently."  You'd think "I could be doing so much bigger-and better stuff with {favourite-language}."  Now, your regular girl,-she's not as exotic as {favourite-language}.  Pretty, maybe, if you're-lucky.  (Perhaps your regular girlfriend's name is-{work-language}. ;-) But not nearly as --- weird.  Wild.  Cool.-Exciting.  Don't get me wrong --- your girl, she's wonderful.  You've-got a wonderful relationship.  She's --- comfortable.  You can bang-away at her all day and night.  She's accommodating.  Easy going.  You-work well together.  But --- confidentially --- she's, well, maybe-just a little bit boring.  You'd catch yourself thinking these things,-and the guilty pangs would get to you...  You'd quash the thoughts,-buckle down, and get back to banging away.  Comfortable...  there's a-lot to be said for that, ya know?  Comfortable...  just keep telling-yourself that.-{br}-Months would go by.  Late some night you'd find yourself out,-disreputable places again.  Maybe that hacker bar, {bar}.  Somebody'd-slip you an URL for some renegade paper, you know, one of *those*-papers.  You'd run into {favourite-language} again.  And the whole-thing starts over.-{br}-Eventually, you're going to get the ultimatum.  {favourite-language}'s-ultimately just like any other girl on some level; she needs-commitment.  Eventually, after one night of wild, feverish, kinky,-abstract passion, she's going to say to you: "All these times, and you-don't understand me at all!  You know, you're going to have to get-serious, mister!  I've got needs, too.  You're going to have to get-serious about my {particular-stuff}, or that's the last time you're-going to play with them!  Got it?"-{br}-...and then, you've got to make The Choice.-{br}-Chances are, you're going to go back to your regular gal.-{favourite-language}'s just too much for any one man, probably.  She-leaves a trail of broken, brainy, embittered PhDs and former-programmers behind her.  She ruins you for the RealWorld.  You can-ride a while, but you probably can't go the distance with her.  Go-back to your regular gal and try not to think too much about what-you've seen.  Done.  Felt.  Thought.-{br}-Maybe you can salvage a little happiness; but it'll be hard.  After-all...  you've tasted {favourite-language}.-{br}-She's not like anything else.-{br}-Original post: http://www.xent.com/pipermail/fork/Week-of-Mon-20070219/044101.html-{br}-{br}-(It's intended in good humour (and just a demonstration of the Threepenny library). Haskell is my favourite programming language, and I like-this mailing list message, but anyone with a brain can realise it's-easy to replace the word "Haskell" with "Lisp" or "Vim" or whatever-you prefer and suddenly it's stroking your sense of identity, the post-is lacking in any content… when you're next reading evangelism, try-swapping the names with other technologies in your head, it's funny.)

@@ -1,13 +0,0 @@-<!doctype html>-<head>-  <title>Chat</title>-  <link rel="stylesheet" type="text/css" href="static/css/chat.css"/>-<link href='http://fonts.googleapis.com/css?family=Fredericka+the+Great'-  rel='stylesheet' type='text/css'>-<link href='http://fonts.googleapis.com/css?family=Annie+Use+Your+Telescope' rel='stylesheet' type='text/css'>-  <script src="driver/threepenny-gui.js"></script>-</head>-<body>-  <noscript>Please enable JavaScript.</noscript>-</body>-</html>

@@ -1,18 +0,0 @@-.box-drag {-    position: absolute;-    top   : 20px;-    border: 1px solid gray;-    width : 90px;-    height: 2ex;-    text-align: center;-    padding: 1ex;-}--.box-drop {-    position: absolute;-    top   : 100px;-    width : 100px;-    height: 2.2ex;-    text-align: center;-    padding: 1ex;-}

@@ -1,52 +0,0 @@-body {-  background: #333;-  color: #ccc;-  font-family: ubuntu, sans-serif;-  font-size: 14px;-  background: url(stripes-bg.png);-  padding-top: 1em;-  text-shadow: #000 3px 1px 3px;-}-.wrap {-  width: 40em;-  margin: auto;-}-.buttons-list {-  color: #aaa;-}-.button {-  cursor: pointer;-  color: #acc2a1;-  text-decoration: underline;-}-a {-  color: #acc2a1;-}-button, input {-  border: 0;-  color: #ccc;-  padding: 0.3em;-  border-radius:0.3em;-  box-shadow: #191919 2px 1px 2px;-}-input {-  background: #292929;-  width: 2em;-}-button:focus,input:focus {-  background: #222;-}-button {-  background: #444;-}-h1 {-  font-size: 4em;-  margin: 0;-  padding-bottom: 0.2em;-}-h2 {-  margin-top: 1.3em;-  padding-bottom: 0em;-  margin-bottom:0;-}-.view-source { float: right }

@@ -1,106 +0,0 @@-body {-  background: #333;-  color: #ccc;-  font-family: 'Annie Use Your Telescope';-  font-size: 26px;-  text-shadow: #000 3px 1px 3px;-  padding:0;-  margin:0;-  background: url(wood-bg.png) #333;-}-.header {-  font-family: 'Fredericka the Great', cursive;-  font-size: 50px;-  color: #ad1c43;-  float: left;-  padding: 10px 20px;-  position:absolute;-  z-index:2;-}-.message-area {-  clear:both;-  padding: 20px;-  color: #fff;-  position: absolute;-  top: 1em;-  right:0;-  left:0;-  bottom:10%;-  overflow: auto;-}-.gradient {-  background: url(fade.png) repeat-x;-  position:absolute;-  top:0;-  height: 150px;-  left:0;-  right:0;-  z-index:1;-}-.send-area {-  z-index:0;-  position:fixed;-  top:90%;-  left:0;-  right:0;-  bottom:0;-  background:#fff;-}-.send-textarea {-  padding: 0.25em;-  border:0;-  position: absolute;-  left:0;-  width:100%;-  bottom:0;-  top:-1px;-  font-family: 'Annie Use Your Telescope';-  font-size: 25px;-  background: #111;-  color: #999;-}-.message {-  margin-top: 1em;-  border-top: 0.1em dotted #333;-}-.message .timestamp {-  color: #888;-  font-size: 15px;-  display: inline;-  float: right;-}-.message .name {-  display: inline-block;-  font-size: 18px;-  font-style: italic;-  float:left;-}-.message .content {-  display:block;-  clear:both;-}-.name-area {-  position: absolute;-  top: 20px;-  right: 20px;-  z-index: 3;-}-.name-input {-  background: #111;-  border: 0;-  border-radius: 0.3em;-  font-family: 'Annie Use Your Telescope';-  color: #777;-  font-size: 20px;-  padding-left: 0.2em;-}-.name-input:focus,.send-textarea:focus {-  background: #333;-}-.view-source {-  position: absolute;-  z-index: 4;-  right: 20px;-  color: #555;-  top: 100px;-}

binary file changed (4690 → absent bytes)

@@ -1,52 +0,0 @@-body {-  background: #333;-  color: #ccc;-  font-family: ubuntu, sans-serif;-  font-size: 14px;-  background: url(stripes-bg.png);-  padding-top: 1em;-  text-shadow: #000 3px 1px 3px;-}-.wrap {-  width: 40em;-  margin: auto;-}-.buttons-list {-  color: #aaa;-}-.button {-  cursor: pointer;-  color: #acc2a1;-  text-decoration: underline;-}-a {-  color: #acc2a1;-}-button, input {-  border: 0;-  color: #ccc;-  padding: 0.3em;-  border-radius:0.3em;-  box-shadow: #191919 2px 1px 2px;-}-input {-  background: #292929;-  width: 2em;-}-button:focus,input:focus {-  background: #222;-}-button {-  background: #444;-}-h1 {-  font-size: 4em;-  margin: 0;-  padding: 0;-}-h2 {-  margin-top: 1.3em;-  padding-bottom: 0em;-  margin-bottom:0;-}-.view-source { float: right }

binary file changed (162 → absent bytes)

@@ -1,70 +0,0 @@-.text,.var {-  display: inline;-}-.var {-  color: #fff;-}-body {-  background: #333;-  color: #ccc;-  font-family: ubuntu, sans-serif;-  font-size: 14px;-  background: url(stripes-bg.png);-  padding-top: 1em;-  text-shadow: #000 3px 1px 3px;-}-.wrap {-  width: 50em;-  margin: auto;-  padding-bottom: 5em;-  line-height: 1.5em;-}-.buttons-list {-  color: #aaa;-}-.button {-  cursor: pointer;-  color: #acc2a1;-  text-decoration: underline;-}-a {-  color: #acc2a1;-}-button, input {-  border: 0;-  color: #ccc;-  padding: 0.3em;-  border-radius:0.3em;-  box-shadow: #191919 2px 1px 2px;-}-label { display: block; padding-bottom: 0.4em; padding-top: 0.8em;}-input {-  background: #292929;-  width: 20em;-}-button:focus,input:focus {-  background: #222;-}-button {-  background: #444;-}-h1 {-  font-size: 4em;-  margin: 0;-  padding-bottom: 0.2em;-}-h2 {-  margin-top: 1.3em;-  padding-bottom: 0em;-  margin-bottom:0;-}-.view-source { float: right }-.vars { margin-bottom: 3em; margin-top: 2em; }-.header {-  font-size: 3em;-  padding-top: 0.5em;-}-.code-link {-  float: right;-  display: block;-}

binary file changed (628939 → absent bytes)

binary file changed (28556 → absent bytes)

binary file changed (31622 → absent bytes)

binary file changed (76332 → absent bytes)