| author | haftmann |
| Wed, 27 Jan 2010 14:02:52 +0100 | |
| changeset 34969 | acd6b305ffb5 |
| parent 34871 | e596a0b71f3c |
| child 36015 | 6111de7c916a |
| permissions | -rw-r--r-- |
| 34765 | 1 |
/* |
2 |
* HTML panel based on Lobo/Cobra |
|
3 |
* |
|
4 |
* @author Makarius |
|
5 |
*/ |
|
6 |
||
|
34871
e596a0b71f3c
incorporate "proofdocument" part into main Isabelle/Pure.jar -- except for html_panel.scala, which depends on external library (Lobo/Cobra browser);
wenzelm
parents:
34823
diff
changeset
|
7 |
package isabelle.jedit |
| 34765 | 8 |
|
9 |
||
10 |
import java.io.StringReader |
|
11 |
import java.awt.{BorderLayout, Dimension}
|
|
| 34775 | 12 |
import java.awt.event.MouseEvent |
13 |
||
| 34765 | 14 |
import javax.swing.{JButton, JPanel, JScrollPane}
|
15 |
import java.util.logging.{Logger, Level}
|
|
16 |
||
| 34775 | 17 |
import org.w3c.dom.html2.HTMLElement |
| 34765 | 18 |
|
19 |
import org.lobobrowser.html.parser.{DocumentBuilderImpl, InputSourceImpl}
|
|
20 |
import org.lobobrowser.html.gui.HtmlPanel |
|
21 |
import org.lobobrowser.html.domimpl.{HTMLDocumentImpl, HTMLStyleElementImpl, NodeImpl}
|
|
22 |
import org.lobobrowser.html.test.{SimpleHtmlRendererContext, SimpleUserAgentContext}
|
|
23 |
||
24 |
import scala.io.Source |
|
25 |
import scala.actors.Actor._ |
|
26 |
||
27 |
||
| 34775 | 28 |
object HTML_Panel |
29 |
{
|
|
30 |
sealed abstract class Event { val element: HTMLElement; val mouse: MouseEvent }
|
|
31 |
case class Context_Menu(val element: HTMLElement, mouse: MouseEvent) extends Event |
|
32 |
case class Mouse_Click(val element: HTMLElement, mouse: MouseEvent) extends Event |
|
33 |
case class Double_Click(val element: HTMLElement, mouse: MouseEvent) extends Event |
|
34 |
case class Mouse_Over(val element: HTMLElement, mouse: MouseEvent) extends Event |
|
35 |
case class Mouse_Out(val element: HTMLElement, mouse: MouseEvent) extends Event |
|
36 |
} |
|
37 |
||
38 |
||
39 |
class HTML_Panel( |
|
40 |
sys: Isabelle_System, |
|
41 |
initial_font_size: Int, |
|
42 |
handler: PartialFunction[HTML_Panel.Event, Unit]) extends HtmlPanel |
|
| 34765 | 43 |
{
|
44 |
// global logging |
|
45 |
Logger.getLogger("org.lobobrowser").setLevel(Level.WARNING)
|
|
46 |
||
47 |
||
48 |
/* document template */ |
|
49 |
||
50 |
private def try_file(name: String): String = |
|
51 |
{
|
|
52 |
val file = sys.platform_file(name) |
|
| 34776 | 53 |
if (file.isFile) Source.fromFile(file).mkString else "" |
| 34765 | 54 |
} |
55 |
||
56 |
private def template(font_size: Int): String = |
|
57 |
"""<?xml version="1.0" encoding="utf-8"?> |
|
58 |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" |
|
59 |
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> |
|
60 |
<html xmlns="http://www.w3.org/1999/xhtml"> |
|
61 |
<head> |
|
| 34770 | 62 |
<style media="all" type="text/css"> |
63 |
""" + |
|
| 34765 | 64 |
try_file("$ISABELLE_HOME/lib/html/isabelle.css") + "\n" +
|
65 |
try_file("$ISABELLE_HOME_USER/etc/isabelle.css") + "\n" +
|
|
| 34770 | 66 |
"body { font-family: " + sys.font_family + "; font-size: " + font_size + "px }" +
|
| 34765 | 67 |
""" |
68 |
</style> |
|
69 |
</head> |
|
70 |
<body/> |
|
71 |
</html> |
|
72 |
""" |
|
73 |
||
74 |
||
75 |
/* actor with local state */ |
|
76 |
||
77 |
private val ucontext = new SimpleUserAgentContext |
|
| 34775 | 78 |
|
| 34765 | 79 |
private val rcontext = new SimpleHtmlRendererContext(this, ucontext) |
| 34775 | 80 |
{
|
81 |
private def handle(event: HTML_Panel.Event): Boolean = |
|
82 |
if (handler != null && handler.isDefinedAt(event)) { handler(event); true }
|
|
83 |
else false |
|
84 |
||
85 |
override def onContextMenu(elem: HTMLElement, event: MouseEvent): Boolean = |
|
86 |
handle(HTML_Panel.Context_Menu(elem, event)) |
|
87 |
override def onMouseClick(elem: HTMLElement, event: MouseEvent): Boolean = |
|
88 |
handle(HTML_Panel.Mouse_Click(elem, event)) |
|
89 |
override def onDoubleClick(elem: HTMLElement, event: MouseEvent): Boolean = |
|
90 |
handle(HTML_Panel.Double_Click(elem, event)) |
|
91 |
override def onMouseOver(elem: HTMLElement, event: MouseEvent) |
|
92 |
{ handle(HTML_Panel.Mouse_Over(elem, event)) }
|
|
93 |
override def onMouseOut(elem: HTMLElement, event: MouseEvent) |
|
94 |
{ handle(HTML_Panel.Mouse_Out(elem, event)) }
|
|
95 |
} |
|
96 |
||
| 34765 | 97 |
private val builder = new DocumentBuilderImpl(ucontext, rcontext) |
98 |
||
99 |
private case class Init(font_size: Int) |
|
100 |
private case class Render(body: List[XML.Tree]) |
|
101 |
||
102 |
private val main_actor = actor {
|
|
| 34791 | 103 |
// crude double buffering |
| 34823 | 104 |
var doc1: org.w3c.dom.Document = null |
105 |
var doc2: org.w3c.dom.Document = null |
|
| 34765 | 106 |
|
107 |
loop {
|
|
108 |
react {
|
|
109 |
case Init(font_size) => |
|
110 |
val src = template(font_size) |
|
| 34766 | 111 |
def parse() = |
112 |
builder.parse(new InputSourceImpl(new StringReader(src), "http://localhost")) |
|
| 34765 | 113 |
doc1 = parse() |
114 |
doc2 = parse() |
|
115 |
Swing_Thread.now { setDocument(doc1, rcontext) }
|
|
116 |
||
117 |
case Render(body) => |
|
118 |
val doc = doc2 |
|
119 |
val node = |
|
120 |
XML.document_node(doc, |
|
121 |
XML.elem(HTML.BODY, body.map((t: XML.Tree) => XML.elem(HTML.PRE, HTML.spans(t))))) |
|
122 |
doc.removeChild(doc.getLastChild()) |
|
123 |
doc.appendChild(node) |
|
124 |
doc2 = doc1 |
|
125 |
doc1 = doc |
|
126 |
Swing_Thread.now { setDocument(doc1, rcontext) }
|
|
127 |
||
| 34769 | 128 |
case bad => System.err.println("main_actor: ignoring bad message " + bad)
|
| 34765 | 129 |
} |
130 |
} |
|
131 |
} |
|
132 |
||
133 |
main_actor ! Init(initial_font_size) |
|
134 |
||
135 |
||
136 |
/* main method wrappers */ |
|
137 |
||
138 |
def init(font_size: Int) { main_actor ! Init(font_size) }
|
|
139 |
def render(body: List[XML.Tree]) { main_actor ! Render(body) }
|
|
140 |
} |