author | wenzelm |
Thu, 04 Oct 2012 18:28:31 +0200 | |
changeset 49700 | 2d1cbdf6a68b |
parent 49520 | 506f2a634473 |
child 50160 | a29be9d067d2 |
permissions | -rw-r--r-- |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
1 |
/* Title: Tools/jEdit/src/pretty_text_area.scala |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
3 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
4 |
GUI component for pretty-printed with markup, rendered like jEdit text area. |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
5 |
*/ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
6 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
7 |
package isabelle.jedit |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
8 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
9 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
10 |
import isabelle._ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
11 |
|
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
12 |
import java.awt.{Font, FontMetrics, Toolkit} |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
13 |
import java.awt.event.{ActionListener, ActionEvent, KeyEvent} |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
14 |
import javax.swing.{KeyStroke, JComponent} |
49412 | 15 |
|
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
16 |
import org.gjt.sp.jedit.{jEdit, View, Registers} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
17 |
import org.gjt.sp.jedit.textarea.{AntiAlias, JEditEmbeddedTextArea} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
18 |
import org.gjt.sp.util.SyntaxUtilities |
49412 | 19 |
|
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
20 |
|
49412 | 21 |
object Pretty_Text_Area |
22 |
{ |
|
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
23 |
private def text_rendering(base_snapshot: Document.Snapshot, formatted_body: XML.Body): |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
24 |
(String, Isabelle_Rendering) = |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
25 |
{ |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
26 |
val (text, state) = Pretty_Text_Area.document_state(base_snapshot, formatted_body) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
27 |
val rendering = Isabelle_Rendering(state.snapshot(), Isabelle.options.value) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
28 |
(text, rendering) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
29 |
} |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
30 |
|
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
31 |
private def document_state(base_snapshot: Document.Snapshot, formatted_body: XML.Body) |
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
32 |
: (String, Document.State) = |
49412 | 33 |
{ |
49414 | 34 |
val command = Command.rich_text(Document.new_id(), formatted_body) |
49412 | 35 |
val node_name = command.node_name |
36 |
val edits: List[Document.Edit_Text] = |
|
49414 | 37 |
List(node_name -> Document.Node.Edits(List(Text.Edit.insert(0, command.source)))) |
49412 | 38 |
|
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
39 |
val state0 = base_snapshot.state.define_command(command) |
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
40 |
val version0 = base_snapshot.version |
49412 | 41 |
val nodes0 = version0.nodes |
42 |
||
43 |
val nodes1 = nodes0 + (node_name -> nodes0(node_name).update_commands(Linear_Set(command))) |
|
44 |
val version1 = Document.Version.make(version0.syntax, nodes1) |
|
45 |
val state1 = |
|
46 |
state0.continue_history(Future.value(version0), edits, Future.value(version1))._2 |
|
47 |
.define_version(version1, state0.the_assignment(version0)) |
|
49414 | 48 |
.assign(version1.id, List(command.id -> Some(Document.new_id())))._2 |
49412 | 49 |
|
49416
1053a564dd25
some actual rich text markup via XML.content_markup;
wenzelm
parents:
49414
diff
changeset
|
50 |
(command.source, state1) |
49412 | 51 |
} |
52 |
} |
|
53 |
||
49446 | 54 |
class Pretty_Text_Area(view: View) extends JEditEmbeddedTextArea |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
55 |
{ |
49446 | 56 |
text_area => |
57 |
||
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
58 |
Swing_Thread.require() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
59 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
60 |
private var current_font_family = "Dialog" |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
61 |
private var current_font_size: Int = 12 |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
62 |
private var current_body: XML.Body = Nil |
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
63 |
private var current_base_snapshot = Document.State.init.snapshot() |
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
64 |
private var current_rendering: Isabelle_Rendering = |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
65 |
Pretty_Text_Area.text_rendering(current_base_snapshot, Nil)._2 |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
66 |
private var future_rendering: Option[java.util.concurrent.Future[Unit]] = None |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
67 |
|
49492 | 68 |
private val rich_text_area = new Rich_Text_Area(view, text_area, () => current_rendering, true) |
49416
1053a564dd25
some actual rich text markup via XML.content_markup;
wenzelm
parents:
49414
diff
changeset
|
69 |
|
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
70 |
def refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
71 |
{ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
72 |
Swing_Thread.require() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
73 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
74 |
val font = new Font(current_font_family, Font.PLAIN, current_font_size) |
49446 | 75 |
getPainter.setFont(font) |
76 |
getPainter.setAntiAlias(new AntiAlias(jEdit.getProperty("view.antiAlias"))) |
|
77 |
getPainter.setStyles(SyntaxUtilities.loadStyles(current_font_family, current_font_size)) |
|
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
78 |
|
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
79 |
val font_metrics = getPainter.getFontMetrics(font) |
49520 | 80 |
val margin = (getWidth / (font_metrics.charWidth(Pretty.spc) max 1) - 2) max 20 |
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
81 |
|
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
82 |
val base_snapshot = current_base_snapshot |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
83 |
val formatted_body = Pretty.formatted(current_body, margin, Pretty.font_metric(font_metrics)) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
84 |
|
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
85 |
future_rendering.map(_.cancel(true)) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
86 |
future_rendering = Some(default_thread_pool.submit(() => |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
87 |
{ |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
88 |
val (text, rendering) = Pretty_Text_Area.text_rendering(base_snapshot, formatted_body) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
89 |
Simple_Thread.interrupted_exception() |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
90 |
|
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
91 |
Swing_Thread.later { |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
92 |
current_rendering = rendering |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
93 |
|
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
94 |
try { |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
95 |
getBuffer.beginCompoundEdit |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
96 |
getBuffer.setReadOnly(false) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
97 |
setText(text) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
98 |
setCaretPosition(0) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
99 |
getBuffer.setReadOnly(true) |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
100 |
} |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
101 |
finally { |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
102 |
getBuffer.endCompoundEdit |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
103 |
} |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
104 |
} |
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
105 |
})) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
106 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
107 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
108 |
def resize(font_family: String, font_size: Int) |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
109 |
{ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
110 |
Swing_Thread.require() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
111 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
112 |
current_font_family = font_family |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
113 |
current_font_size = font_size |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
114 |
refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
115 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
116 |
|
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
117 |
def update(base_snapshot: Document.Snapshot, body: XML.Body) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
118 |
{ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
119 |
Swing_Thread.require() |
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
120 |
require(!base_snapshot.is_outdated) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
121 |
|
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
122 |
current_base_snapshot = base_snapshot |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
123 |
current_body = body |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
124 |
refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
125 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
126 |
|
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
127 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
128 |
/* keyboard actions */ |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
129 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
130 |
private val action_listener = new ActionListener { |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
131 |
def actionPerformed(e: ActionEvent) { |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
132 |
e.getActionCommand match { |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
133 |
case "copy" => Registers.copy(text_area, '$') |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
134 |
case _ => |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
135 |
} |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
136 |
} |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
137 |
} |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
138 |
|
49446 | 139 |
registerKeyboardAction(action_listener, "copy", |
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
140 |
KeyStroke.getKeyStroke(KeyEvent.VK_COPY, 0), JComponent.WHEN_FOCUSED) |
49446 | 141 |
registerKeyboardAction(action_listener, "copy", |
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
142 |
KeyStroke.getKeyStroke(KeyEvent.VK_C, |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
143 |
Toolkit.getDefaultToolkit().getMenuShortcutKeyMask()), JComponent.WHEN_FOCUSED) |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
144 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
145 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
146 |
/* init */ |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
147 |
|
49472 | 148 |
override def isCaretVisible: Boolean = false |
149 |
||
150 |
getPainter.setStructureHighlightEnabled(false) |
|
49475 | 151 |
getPainter.setLineHighlightEnabled(false) |
152 |
||
49446 | 153 |
getBuffer.setTokenMarker(new Token_Markup.Marker(true, None)) |
154 |
getBuffer.setReadOnly(true) |
|
49475 | 155 |
|
49412 | 156 |
rich_text_area.activate() |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
157 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
158 |