suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed erroneous cloning

Browse Source
This commit is contained in:
Danny Yoo 2011-11-22 02:05:41 -05:00
parent 899d9c127e
commit efbf45747b
3 changed files with 45 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
web-world/examples/hot-cross-buns/hot-cross-buns.rkt Normal file
View File

@ -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))

9
web-world/examples/hot-cross-buns/index.html Normal file
View File

@ -0,0 +1,9 @@
<html>
<head><title>Hot Cross Buns</title></head>
<input id="hot" type="checkbox" value="Hot"/>Hot
<input id="cross" type="checkbox" value="Cross"/>Cross
<input id="buns" type="checkbox" value="Buns"/>Buns
<input id="reset" type="button" value="Reset"/>
<div id="mydiv"/>
</html>

13
web-world/js-impl.js
View File

@ -44,6 +44,15 @@
var shallowCloneNode = function(node) { var shallowCloneNode = function(node) {
var result = node.cloneNode(false); 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()); $(result).data($(node).data());
return result; return result;
}; };
@ -204,7 +213,7 @@
}; };
MockView.prototype.getAttr = function(name) { 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("title").clone(true));
$(document.head).append($(this.top).children("link").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 // The snip here is meant to accomodate weirdness with canvas dom
// elements. cloning a canvas doesn't preserve how it draws. // elements. cloning a canvas doesn't preserve how it draws.