checkpoint

[sbp.git] / src / edu / berkeley / sbp / tib / TibDoc.java

diff --git a/src/edu/berkeley/sbp/tib/TibDoc.java b/src/edu/berkeley/sbp/tib/TibDoc.java
index dae47a6..42d81bc 100644 (file)
--- a/src/edu/berkeley/sbp/tib/TibDoc.java
+++ b/src/edu/berkeley/sbp/tib/TibDoc.java
@@ -612,12 +612,13 @@ toContex ll = prefix ++ (concatMap tl ll) ++ suffix
         public static class Link extends Text {
             public Text[] t;
             public Url u;
-            public @bind.as("link")  Link(@bind.arg Text[] t, @bind.arg Url u)  { this.t = t; this.u = u; }
-            public Link(String s, Url u) { this(new Text[] { new Chars(s) }, u); }
+            public Input.Region region;
+            public @bind.as("link")  Link(Input.Region region, @bind.arg Text[] t, @bind.arg Url u)  { this.region = region; this.t = t; this.u = u; }
+            public Link(String s, Url u) { this(null,new Text[] { new Chars(s) }, u); }
             public void toHTML(HTML h) {
                 h.tag("a",
                       new Object[] { "href", u==null ? "" : u.toString() },
-                      new P(t));
+                      new P(/*t*/region+""));
             }
         }