Skip to content
Browse files

Make it work.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
  • Loading branch information...
1 parent be03a60 commit cbde51cf7ec5eb95833de66336f00390cb5d66a8 @ezyang committed Mar 13, 2012
Showing with 8 additions and 3 deletions.
  1. +6 −1 ffi.js
  2. +2 −2 logitext.ur
View
7 ffi.js
@@ -4,7 +4,12 @@
function infinitedrag(draggable, contents) {
jQuery.infinitedrag("#" + draggable, {}, {width: 800, height: 500, oncreate: function(el, col, row) {
if (col == 0 && row == 0) {
- el["0"].innerHTML = contents;
+ div = document.createElement('div');
+ div.innerHTML = contents;
+ for (var i = 0; i < div.childNodes.length; i++) {
+ el["0"].appendChild(div.childNodes[i]);
+ }
+ runScripts(el["0"]);
}
}});
}
View
4 logitext.ur
@@ -1,5 +1,4 @@
style sequent
-style viewport
con state = int
datatype action = Inc | Dec
@@ -33,6 +32,7 @@ fun generate s =
r <- rpc (run a);
set finalChan r;
set status Final
+ (* tables here are wrong *)
in return <xml><table>
<tr><td><dyn signal={
stat <- signal status;
@@ -56,7 +56,7 @@ fun main () =
<link rel="stylesheet" type="text/css" href="http://localhost/logitext/style.css" />
</head>
<body onload={Js.infinitedrag seqid tbl}>
- <div class={viewport}>
+ <div>
<div id={seqid} class={sequent}>&nbsp;</div>
</div>
</body>

0 comments on commit cbde51c

Please sign in to comment.
Something went wrong with that request. Please try again.