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

in the middle of trying to make tests run

Browse Source
This commit is contained in:
Danny Yoo 2011-09-08 11:59:13 -04:00
parent ac72b21e7d
commit e30a1d0be1
4 changed files with 109 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/more-tests/view.rkt
View File

@ -135,8 +135,8 @@
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "two")))))
"para"))
(xexp->dom '(li "two"))))
(view->xexp
@ -146,8 +146,8 @@
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "two"))))
"para"))
(xexp->dom '(li "two")))
(xexp->dom '(li "three"))))
(view->xexp
@ -156,5 +156,5 @@
(body (h1 (@ (id "header")))
(p (@ (id "para"))
(ul (li "one")))))))
"para")
(xexp->dom '(li "zero")))))
"para"))
(xexp->dom '(li "zero"))))

4
web-world/impl.rkt
View File

@ -70,7 +70,9 @@
view-append-child
view-remove
view-insert-right
view-insert-left
xexp?
xexp->dom

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

@ -439,6 +439,36 @@
);
};
MockView.prototype.insertRight = function(domNode) {
return this.act(
function(cursor) {
return cursor.insertRight(domNodeToArrayTree(domNode));
},
function(eventHandlers) { return eventHandlers; },
function(view) {
var clone = $(domNode).clone(true);
clone.insertAfter(view.focus);
view.focus = clone;
}
);
};
MockView.prototype.insertLeft = function(domNode) {
return this.act(
function(cursor) {
return cursor.insertLeft(domNodeToArrayTree(domNode));
},
function(eventHandlers) { return eventHandlers; },
function(view) {
var clone = $(domNode).clone(true);
clone.insertBefore(view.focus);
view.focus = clone;
}
);
};
MockView.prototype.id = function() {
return this.cursor.node[0].id;
};
@ -1773,6 +1803,68 @@
});
EXPORTS['view-insert-right'] = makeClosure(
'view-insert-right',
2,
function(MACHINE) {
var view = checkMockView(MACHINE, 'view-insert-right', 0);
var oldArgcount = MACHINE.argcount;
var x = MACHINE.env[MACHINE.env.length - 2];
PAUSE(function(restart) {
coerseToDomNode(x,
function(dom) {
restart(function(MACHINE) {
MACHINE.argcount = oldArgcount;
var updatedView = view.insertRight(dom);
finalizeClosureCall(MACHINE, updatedView);
});
},
function(err) {
restart(function(MACHINE) {
plt.baselib.exceptions.raise(
MACHINE,
new Error(plt.baselib.format.format(
"unable to translate ~s to dom node: ~a",
[x, err.message])));
});
});
});
});
EXPORTS['view-insert-left'] = makeClosure(
'view-insert-left',
2,
function(MACHINE) {
var view = checkMockView(MACHINE, 'view-insert-left', 0);
var oldArgcount = MACHINE.argcount;
var x = MACHINE.env[MACHINE.env.length - 2];
PAUSE(function(restart) {
coerseToDomNode(x,
function(dom) {
restart(function(MACHINE) {
MACHINE.argcount = oldArgcount;
var updatedView = view.insertLeft(dom);
finalizeClosureCall(MACHINE, updatedView);
});
},
function(err) {
restart(function(MACHINE) {
plt.baselib.exceptions.raise(
MACHINE,
new Error(plt.baselib.format.format(
"unable to translate ~s to dom node: ~a",
[x, err.message])));
});
});
});
});
EXPORTS['view-id'] = makePrimitiveProcedure(
'view-id',

8
web-world/racket-impl.rkt
View File

@ -22,6 +22,8 @@
view-show
view-hide
view-append-child
view-insert-right
view-insert-left
view-remove
@ -161,6 +163,12 @@
(define (view-append-child view dom)
(error 'view-append "Please run in JavaScript context."))
(define (view-insert-right view dom)
(error 'view-insert-right "Please run in JavaScript context."))
(define (view-insert-left view dom)
(error 'view-insert-left "Please run in JavaScript context."))
(define (open-output-element id)
(error 'open-output-element "Please run in JavaScript context."))