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

still chasing bug

Browse Source
This commit is contained in:
Danny Yoo 2011-09-12 13:16:10 -04:00
parent a1660fb5cb
commit 26a34ae1fd
2 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
web-world/examples/forward-backward/forward-backward.rkt
View File

@ -11,26 +11,35 @@
(define (go-backward world dom)
(max (sub1 world) 0))
(define (view-top a-view)
(if (view-up? a-view)
(view-top (view-up a-view))
a-view))
(define (clear-all a-view)
(define updated-view (update-view-css a-view "border" "none"))
(cond
[(view-forward? updated-view)
(clear-all (view-forward updated-view))]
[else
updated-view]))
(define (loop a-view n)
(define updated-view (update-view-css a-view "border" "none"))
(cond
[(view-forward? updated-view)
(loop (view-forward updated-view) (add1 n))]
[else
(view-top updated-view)]))
(loop a-view 0))
(define (iterate n f x)
(if (<= n 0)
x
(iterate (sub1 n ) f (f x))))
(iterate (sub1 n) f (f x))))
(define (draw world dom)
(update-view-css (iterate world
view-forward
(clear-all dom))
"border"
"1px solid blue"))
(define another-view (update-view-css (iterate world
view-forward
(clear-all dom))
"border"
"1px solid blue"))
another-view)
(define my-initial-view (view-bind
(view-focus

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

@ -340,7 +340,7 @@
} else if (view.focus.next().length > 0) {
view.focus = view.focus.next();
} else {
while (true) {
while (view.focus.get(0) !== view.top.get(0)) {
view.focus = view.focus.parent();
if (view.focus.next().length > 0) {
view.focus = view.focus.next();
@ -349,7 +349,7 @@
}
}
});
};
};
MockView.prototype.backward = function() {
return this.act(
@ -593,7 +593,6 @@
View.prototype.getMockAndResetFocus = function(nonce) {
this.focus = this.top;
return new MockView(domToArrayTreeCursor($(this.top).get(0)),
EMPTY_PENDING_ACTIONS,
this.eventHandlers.slice(0),