diff --git a/web-world/examples/hot-cross-buns/hot-cross-buns.rkt b/web-world/examples/hot-cross-buns/hot-cross-buns.rkt
new file mode 100644
index 0000000..a904f7b
--- /dev/null
+++ b/web-world/examples/hot-cross-buns/hot-cross-buns.rkt
@@ -0,0 +1,25 @@
+#lang planet dyoo/whalesong/cs019
+
+(define-resource index.html)
+
+(define base-view (->view index.html))
+
+(define view-with-buttons
+ (foldl (lambda (name a-view)
+ (view-bind (view-focus a-view name)
+ "click"
+ (lambda (world a-view)
+ (begin
+ (printf "here: ~s\n" (view-attr
+ a-view
+ "checked"))
+ world))))
+ base-view
+ '("hot" "cross" "buns")))
+
+(define (draw w v)
+ v)
+
+(big-bang '()
+ (initial-view view-with-buttons)
+ (to-draw draw))
\ No newline at end of file
diff --git a/web-world/examples/hot-cross-buns/index.html b/web-world/examples/hot-cross-buns/index.html
new file mode 100644
index 0000000..0a387d3
--- /dev/null
+++ b/web-world/examples/hot-cross-buns/index.html
@@ -0,0 +1,9 @@
+
+Hot Cross Buns
+
+Hot
+Cross
+Buns
+
+
+
diff --git a/web-world/js-impl.js b/web-world/js-impl.js
index 4432f2f..ee8c070 100644
--- a/web-world/js-impl.js
+++ b/web-world/js-impl.js
@@ -44,6 +44,15 @@
var shallowCloneNode = function(node) {
var result = node.cloneNode(false);
+ var i;
+ // copy over the attributes as well
+ if (node.attributes) {
+ for (i = 0; i < node.attributes.length; i++) {
+ console.log('copying: ', node.attributes[i]);
+ $(result).attr(node.attributes[i].name,
+ node.attributes[i].value);
+ }
+ }
$(result).data($(node).data());
return result;
};
@@ -204,7 +213,7 @@
};
MockView.prototype.getAttr = function(name) {
- return this.cursor.node[0].getAttribute(name);
+ return $(this.cursor.node[0]).attr(name);
};
@@ -594,7 +603,7 @@
$(document.head).append($(this.top).children("title").clone(true));
$(document.head).append($(this.top).children("link").clone(true));
- $(top).append($(this.top).clone(true));
+ $(top).append($(this.top));
// The snip here is meant to accomodate weirdness with canvas dom
// elements. cloning a canvas doesn't preserve how it draws.