author | wenzelm |
Wed, 08 Jun 2016 19:36:45 +0200 | |
changeset 63261 | 90a44d271683 |
parent 63028 | 5fb352275db3 |
child 64621 | 7116f2634e32 |
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 |
|
50160 | 4 |
GUI component for pretty-printed text with markup, rendered like jEdit |
5 |
text area. |
|
49398
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 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
8 |
package isabelle.jedit |
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 |
|
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
11 |
import isabelle._ |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
12 |
|
58766 | 13 |
import java.awt.{Color, Font, Toolkit, Window} |
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
14 |
import java.awt.event.KeyEvent |
62214
451bd09b8277
bypass input method for better imitation of read-only mode (cf. f26a4d5e82b5): e.g. relevant for composition of ALT-u u on Mac OS X;
wenzelm
parents:
61570
diff
changeset
|
15 |
import java.awt.im.InputMethodRequests |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
16 |
import javax.swing.JTextField |
56885
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
17 |
import javax.swing.event.{DocumentListener, DocumentEvent} |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
18 |
|
56907
0f3c375fd27c
enable "PIDE" docking framework by default, and rely on its "Detach" menu item;
wenzelm
parents:
56885
diff
changeset
|
19 |
import scala.swing.{Label, Component} |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
20 |
import scala.util.matching.Regex |
56881 | 21 |
|
61570
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
22 |
import org.gjt.sp.jedit.{jEdit, View, Registers, JEditBeanShellAction} |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
23 |
import org.gjt.sp.jedit.input.{DefaultInputHandlerProvider, TextAreaInputHandler} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
24 |
import org.gjt.sp.jedit.textarea.{AntiAlias, JEditEmbeddedTextArea} |
50542
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
25 |
import org.gjt.sp.jedit.syntax.SyntaxStyle |
61570
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
26 |
import org.gjt.sp.jedit.gui.KeyEventTranslator |
50640 | 27 |
import org.gjt.sp.util.{SyntaxUtilities, Log} |
49412 | 28 |
|
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
29 |
|
49412 | 30 |
object Pretty_Text_Area |
31 |
{ |
|
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
32 |
/* auxiliary */ |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
33 |
|
50501
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
34 |
private def document_state(base_snapshot: Document.Snapshot, base_results: Command.Results, |
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
35 |
formatted_body: XML.Body): (String, Document.State) = |
49412 | 36 |
{ |
52530
99dd8b4ef3fe
explicit module Document_ID as source of globally unique identifiers across ML/Scala;
wenzelm
parents:
52527
diff
changeset
|
37 |
val command = Command.rich_text(Document_ID.make(), base_results, formatted_body) |
49412 | 38 |
val node_name = command.node_name |
39 |
val edits: List[Document.Edit_Text] = |
|
49414 | 40 |
List(node_name -> Document.Node.Edits(List(Text.Edit.insert(0, command.source)))) |
49412 | 41 |
|
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
42 |
val state0 = base_snapshot.state.define_command(command) |
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
43 |
val version0 = base_snapshot.version |
49412 | 44 |
val nodes0 = version0.nodes |
45 |
||
46 |
val nodes1 = nodes0 + (node_name -> nodes0(node_name).update_commands(Linear_Set(command))) |
|
59077
7e0d3da6e6d8
node-specific syntax, with base_syntax as default;
wenzelm
parents:
59076
diff
changeset
|
47 |
val version1 = Document.Version.make(nodes1) |
49412 | 48 |
val state1 = |
56711 | 49 |
state0.continue_history(Future.value(version0), edits, Future.value(version1)) |
49412 | 50 |
.define_version(version1, state0.the_assignment(version0)) |
52530
99dd8b4ef3fe
explicit module Document_ID as source of globally unique identifiers across ML/Scala;
wenzelm
parents:
52527
diff
changeset
|
51 |
.assign(version1.id, List(command.id -> List(Document_ID.make())))._2 |
49412 | 52 |
|
49416
1053a564dd25
some actual rich text markup via XML.content_markup;
wenzelm
parents:
49414
diff
changeset
|
53 |
(command.source, state1) |
49412 | 54 |
} |
51495
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
55 |
|
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
56 |
private def text_rendering(base_snapshot: Document.Snapshot, base_results: Command.Results, |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
57 |
formatted_body: XML.Body): (String, Rendering) = |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
58 |
{ |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
59 |
val (text, state) = document_state(base_snapshot, base_results, formatted_body) |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
60 |
val rendering = Rendering(state.snapshot(), PIDE.options.value) |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
61 |
(text, rendering) |
5944b20c41bf
apply small result immediately, to avoid visible delay of text update after window move;
wenzelm
parents:
51493
diff
changeset
|
62 |
} |
49412 | 63 |
} |
64 |
||
50538
48cb76b785da
init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents:
50507
diff
changeset
|
65 |
class Pretty_Text_Area( |
48cb76b785da
init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents:
50507
diff
changeset
|
66 |
view: View, |
50915
12de8ea66f54
close tooltip after Active.action, to make it look more interactive (notably due to lack of dynamic update);
wenzelm
parents:
50849
diff
changeset
|
67 |
close_action: () => Unit = () => (), |
50743
44571ac53fed
propagate keys to enclosing view like org.gjt.sp.jedit.gui.CompletionPopup, but without its KeyEventInterceptor;
wenzelm
parents:
50726
diff
changeset
|
68 |
propagate_keys: Boolean = false) extends JEditEmbeddedTextArea |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
69 |
{ |
49446 | 70 |
text_area => |
71 |
||
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
72 |
GUI_Thread.require {} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
73 |
|
55826 | 74 |
private var current_font_info: Font_Info = Font_Info.main() |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
75 |
private var current_body: XML.Body = Nil |
52972 | 76 |
private var current_base_snapshot = Document.Snapshot.init |
50507 | 77 |
private var current_base_results = Command.Results.empty |
50199
6d04e2422769
quasi-abstract module Rendering, with Isabelle-specific implementation;
wenzelm
parents:
50195
diff
changeset
|
78 |
private var current_rendering: Rendering = |
50501
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
79 |
Pretty_Text_Area.text_rendering(current_base_snapshot, current_base_results, Nil)._2 |
61561 | 80 |
private var future_refresh: Option[Future[Unit]] = None |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
81 |
|
50306 | 82 |
private val rich_text_area = |
50915
12de8ea66f54
close tooltip after Active.action, to make it look more interactive (notably due to lack of dynamic update);
wenzelm
parents:
50849
diff
changeset
|
83 |
new Rich_Text_Area(view, text_area, () => current_rendering, close_action, |
63028 | 84 |
get_search_pattern _, () => (), caret_visible = false, enable_hovering = true) |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
85 |
|
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
86 |
private var current_search_pattern: Option[Regex] = None |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
87 |
def get_search_pattern(): Option[Regex] = GUI_Thread.require { current_search_pattern } |
49416
1053a564dd25
some actual rich text markup via XML.content_markup;
wenzelm
parents:
49414
diff
changeset
|
88 |
|
51451
e4203ebfe750
recovered special background handling from 8d6e478934dc, particularly relevant for gutter border;
wenzelm
parents:
51449
diff
changeset
|
89 |
def get_background(): Option[Color] = None |
e4203ebfe750
recovered special background handling from 8d6e478934dc, particularly relevant for gutter border;
wenzelm
parents:
51449
diff
changeset
|
90 |
|
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
91 |
def refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
92 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
93 |
GUI_Thread.require {} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
94 |
|
55825 | 95 |
val font = current_font_info.font |
50168
4a575ef46466
always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents:
50166
diff
changeset
|
96 |
getPainter.setFont(font) |
4a575ef46466
always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents:
50166
diff
changeset
|
97 |
getPainter.setAntiAlias(new AntiAlias(jEdit.getProperty("view.antiAlias"))) |
51497
7e8968c9a549
no censorship of "view.fracFontMetrics", although it often degrades rendering quality;
wenzelm
parents:
51495
diff
changeset
|
98 |
getPainter.setFractionalFontMetricsEnabled(jEdit.getBooleanProperty("view.fracFontMetrics")) |
55825 | 99 |
getPainter.setStyles( |
100 |
SyntaxUtilities.loadStyles(current_font_info.family, current_font_info.size.round)) |
|
56789 | 101 |
getPainter.setLineExtraSpacing(jEdit.getIntegerProperty("options.textarea.lineSpacing", 0)) |
50168
4a575ef46466
always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents:
50166
diff
changeset
|
102 |
|
50542
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
103 |
val fold_line_style = new Array[SyntaxStyle](4) |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
104 |
for (i <- 0 to 3) { |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
105 |
fold_line_style(i) = |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
106 |
SyntaxUtilities.parseStyle( |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
107 |
jEdit.getProperty("view.style.foldLine." + i), |
55825 | 108 |
current_font_info.family, current_font_info.size.round, true) |
50542
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
109 |
} |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
110 |
getPainter.setFoldLineStyle(fold_line_style) |
58bd88159f8f
fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents:
50538
diff
changeset
|
111 |
|
51439
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
112 |
getGutter.setForeground(jEdit.getColorProperty("view.gutter.fgColor")) |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
113 |
getGutter.setBackground(jEdit.getColorProperty("view.gutter.bgColor")) |
51451
e4203ebfe750
recovered special background handling from 8d6e478934dc, particularly relevant for gutter border;
wenzelm
parents:
51449
diff
changeset
|
114 |
get_background().map(bg => { getPainter.setBackground(bg); getGutter.setBackground(bg) }) |
51439
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
115 |
getGutter.setHighlightedForeground(jEdit.getColorProperty("view.gutter.highlightColor")) |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
116 |
getGutter.setFoldColor(jEdit.getColorProperty("view.gutter.foldColor")) |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
117 |
getGutter.setFont(jEdit.getFontProperty("view.gutter.font")) |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
118 |
getGutter.setBorder(0, |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
119 |
jEdit.getColorProperty("view.gutter.focusBorderColor"), |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
120 |
jEdit.getColorProperty("view.gutter.noFocusBorderColor"), |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
121 |
getPainter.getBackground) |
60250
baf2c8fddaa4
proper fold painter according to jEdit options, not the hardwired default of JEditEmbeddedTextArea;
wenzelm
parents:
59286
diff
changeset
|
122 |
getGutter.setFoldPainter(view.getTextArea.getFoldPainter) |
51439
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
123 |
getGutter.setGutterEnabled(jEdit.getBooleanProperty("view.gutter.enabled")) |
b10b64679c5b
more precise tooltip window size (NB: dimensions are known after layout pack, before making content visible);
wenzelm
parents:
50915
diff
changeset
|
124 |
|
50166
2585c81d840a
take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents:
50160
diff
changeset
|
125 |
if (getWidth > 0) { |
51492
eaa1c4cc1106
more explicit Pretty.Metric, with clear distinction of unit (space width) vs. average char width (for visual adjustments) -- NB: Pretty formatting works via full space characters (despite a981a5c8a505 and 70f7483df9cb);
wenzelm
parents:
51469
diff
changeset
|
126 |
val metric = JEdit_Lib.pretty_metric(getPainter) |
51493
59d8a1031c00
allow fractional pretty margin -- avoid premature rounding;
wenzelm
parents:
51492
diff
changeset
|
127 |
val margin = (getPainter.getWidth.toDouble / metric.unit) max 20.0 |
49471
97964515a676
text_rendering as managed task, with cancellation;
wenzelm
parents:
49446
diff
changeset
|
128 |
|
50166
2585c81d840a
take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents:
50160
diff
changeset
|
129 |
val base_snapshot = current_base_snapshot |
50501
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
130 |
val base_results = current_base_results |
51492
eaa1c4cc1106
more explicit Pretty.Metric, with clear distinction of unit (space width) vs. average char width (for visual adjustments) -- NB: Pretty formatting works via full space characters (despite a981a5c8a505 and 70f7483df9cb);
wenzelm
parents:
51469
diff
changeset
|
131 |
val formatted_body = Pretty.formatted(current_body, margin, metric) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
132 |
|
61561 | 133 |
future_refresh.map(_.cancel) |
61193 | 134 |
future_refresh = |
61561 | 135 |
Some(Future.fork { |
51498
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
136 |
val (text, rendering) = |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
137 |
try { Pretty_Text_Area.text_rendering(base_snapshot, base_results, formatted_body) } |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
138 |
catch { case exn: Throwable => Log.log(Log.ERROR, this, exn); throw exn } |
56860 | 139 |
Exn.Interrupt.expose() |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
140 |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
141 |
GUI_Thread.later { |
51498
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
142 |
current_rendering = rendering |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
143 |
JEdit_Lib.buffer_edit(getBuffer) { |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
144 |
rich_text_area.active_reset() |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
145 |
getBuffer.setFoldHandler(new Fold_Handling.Document_Fold_Handler(rendering)) |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
146 |
setText(text) |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
147 |
setCaretPosition(0) |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
148 |
} |
979592b765f8
reverted most of 5944b20c41bf -- tends to cause race condition of synchronous vs. asynchronous version;
wenzelm
parents:
51497
diff
changeset
|
149 |
} |
56730
e723f041b6d0
tuned signature -- separate pool for JFuture tasks, which can be canceled;
wenzelm
parents:
56711
diff
changeset
|
150 |
}) |
50166
2585c81d840a
take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents:
50160
diff
changeset
|
151 |
} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
152 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
153 |
|
55825 | 154 |
def resize(font_info: Font_Info) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
155 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
156 |
GUI_Thread.require {} |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
157 |
|
55825 | 158 |
current_font_info = font_info |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
159 |
refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
160 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
161 |
|
50501
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
162 |
def update(base_snapshot: Document.Snapshot, base_results: Command.Results, body: XML.Body) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
163 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
164 |
GUI_Thread.require {} |
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
165 |
require(!base_snapshot.is_outdated) |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
166 |
|
49419
e2726211f834
pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents:
49416
diff
changeset
|
167 |
current_base_snapshot = base_snapshot |
50501
6f41f1646617
more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents:
50306
diff
changeset
|
168 |
current_base_results = base_results |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
169 |
current_body = body |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
170 |
refresh() |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
171 |
} |
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
172 |
|
56880 | 173 |
def detach |
174 |
{ |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
175 |
GUI_Thread.require {} |
56880 | 176 |
Info_Dockable(view, current_base_snapshot, current_base_results, current_body) |
177 |
} |
|
178 |
||
56918 | 179 |
def detach_operation: Option[() => Unit] = |
180 |
if (current_body.isEmpty) None else Some(() => detach) |
|
181 |
||
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
182 |
|
56881 | 183 |
/* common GUI components */ |
184 |
||
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
185 |
val search_label: Component = new Label("Search:") { |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
186 |
tooltip = "Search and highlight output via regular expression" |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
187 |
} |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
188 |
|
57042 | 189 |
val search_field: Component = |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
190 |
Component.wrap(new Completion_Popup.History_Text_Field("isabelle-search") |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
191 |
{ |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
192 |
private val input_delay = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57042
diff
changeset
|
193 |
GUI_Thread.delay_last(PIDE.options.seconds("editor_input_delay")) { |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
194 |
search_action(this) |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
195 |
} |
56885
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
196 |
getDocument.addDocumentListener(new DocumentListener { |
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
197 |
def changedUpdate(e: DocumentEvent) { input_delay.invoke() } |
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
198 |
def insertUpdate(e: DocumentEvent) { input_delay.invoke() } |
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
199 |
def removeUpdate(e: DocumentEvent) { input_delay.invoke() } |
3020f6bbd119
clarified GUI events, e.g. relevant for insert via completion;
wenzelm
parents:
56883
diff
changeset
|
200 |
}) |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
201 |
setColumns(20) |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
202 |
setToolTipText(search_label.tooltip) |
59286
ac74eedb910a
GUI.imitate_font: more explicit result size, e.g. relevant for caching;
wenzelm
parents:
59224
diff
changeset
|
203 |
setFont(GUI.imitate_font(getFont, Font_Info.main_family(), 1.2)) |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
204 |
}) |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
205 |
|
57042 | 206 |
private val search_field_foreground = search_field.foreground |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
207 |
|
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
208 |
private def search_action(text_field: JTextField) |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
209 |
{ |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
210 |
val (pattern, ok) = |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
211 |
text_field.getText match { |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
212 |
case null | "" => (None, true) |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
213 |
case s => |
59224 | 214 |
val re = Library.make_regex(s) |
215 |
(re, re.isDefined) |
|
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
216 |
} |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
217 |
if (current_search_pattern != pattern) { |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
218 |
current_search_pattern = pattern |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
219 |
text_area.getPainter.repaint() |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
220 |
} |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
221 |
text_field.setForeground( |
57042 | 222 |
if (ok) search_field_foreground else current_rendering.error_color) |
56883
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
223 |
} |
38c6b70e5e53
common support for search field, which is actually a light-weight Highlighter;
wenzelm
parents:
56881
diff
changeset
|
224 |
|
56881 | 225 |
|
50726
27478c11f63c
more elementary key handling: listen to low-level KEY_PRESSED events (without consuming);
wenzelm
parents:
50640
diff
changeset
|
226 |
/* key handling */ |
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
227 |
|
62214
451bd09b8277
bypass input method for better imitation of read-only mode (cf. f26a4d5e82b5): e.g. relevant for composition of ALT-u u on Mac OS X;
wenzelm
parents:
61570
diff
changeset
|
228 |
override def getInputMethodRequests: InputMethodRequests = null |
451bd09b8277
bypass input method for better imitation of read-only mode (cf. f26a4d5e82b5): e.g. relevant for composition of ALT-u u on Mac OS X;
wenzelm
parents:
61570
diff
changeset
|
229 |
|
61570
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
230 |
inputHandlerProvider = |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
231 |
new DefaultInputHandlerProvider(new TextAreaInputHandler(text_area) { |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
232 |
override def getAction(action: String): JEditBeanShellAction = |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
233 |
text_area.getActionContext.getAction(action) |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
234 |
override def processKeyEvent(evt: KeyEvent, from: Int, global: Boolean) {} |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
235 |
override def handleKey(key: KeyEventTranslator.Key, dry_run: Boolean): Boolean = false |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
236 |
}) |
f26a4d5e82b5
dummy input handler to imitate former read-only mode, which has changed its meaning in jedit-5.3.0 as mere hint for saving;
wenzelm
parents:
61561
diff
changeset
|
237 |
|
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
238 |
addKeyListener(JEdit_Lib.key_listener( |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
239 |
key_pressed = (evt: KeyEvent) => |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
240 |
{ |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
241 |
evt.getKeyCode match { |
58835 | 242 |
case KeyEvent.VK_C | KeyEvent.VK_INSERT |
56323
e925118b1875
do not absorb vacuous copy operation, e.g. relevant when tooltip has focus but no selection, while the main text area has a selection but no focus;
wenzelm
parents:
55826
diff
changeset
|
243 |
if (evt.getModifiers & Toolkit.getDefaultToolkit.getMenuShortcutKeyMask) != 0 && |
e925118b1875
do not absorb vacuous copy operation, e.g. relevant when tooltip has focus but no selection, while the main text area has a selection but no focus;
wenzelm
parents:
55826
diff
changeset
|
244 |
text_area.getSelectionCount != 0 => |
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
245 |
Registers.copy(text_area, '$') |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
246 |
evt.consume |
53227
68cc55ceb7f6
more standard key handling according to jEdit (with workaround);
wenzelm
parents:
53226
diff
changeset
|
247 |
|
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
248 |
case KeyEvent.VK_A |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
249 |
if (evt.getModifiers & Toolkit.getDefaultToolkit.getMenuShortcutKeyMask) != 0 => |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
250 |
text_area.selectAll |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
251 |
evt.consume |
53227
68cc55ceb7f6
more standard key handling according to jEdit (with workaround);
wenzelm
parents:
53226
diff
changeset
|
252 |
|
68cc55ceb7f6
more standard key handling according to jEdit (with workaround);
wenzelm
parents:
53226
diff
changeset
|
253 |
case KeyEvent.VK_ESCAPE => |
53244 | 254 |
if (PIDE.dismissed_popups(view)) evt.consume |
53227
68cc55ceb7f6
more standard key handling according to jEdit (with workaround);
wenzelm
parents:
53226
diff
changeset
|
255 |
|
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
256 |
case _ => |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
257 |
} |
53231
423e29f1f304
avoid complication and event duplication due to KeyEventInterceptor -- NB: popup has focus within root window, it is closed on loss of focus;
wenzelm
parents:
53227
diff
changeset
|
258 |
if (propagate_keys) JEdit_Lib.propagate_key(view, evt) |
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
259 |
}, |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
260 |
key_typed = (evt: KeyEvent) => |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
261 |
{ |
53231
423e29f1f304
avoid complication and event duplication due to KeyEventInterceptor -- NB: popup has focus within root window, it is closed on loss of focus;
wenzelm
parents:
53227
diff
changeset
|
262 |
if (propagate_keys) JEdit_Lib.propagate_key(view, evt) |
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
263 |
} |
53226
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
264 |
) |
9cf8e2263ca7
more systematic JEdit_Lib.key_listener with optional KeyEventWorkaround;
wenzelm
parents:
53179
diff
changeset
|
265 |
) |
49422
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
266 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
267 |
|
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
268 |
/* init */ |
21f77309d93a
minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents:
49421
diff
changeset
|
269 |
|
49472 | 270 |
getPainter.setStructureHighlightEnabled(false) |
49475 | 271 |
getPainter.setLineHighlightEnabled(false) |
272 |
||
59076
65babcd8b0e6
clarified token marker / syntax for mode vs. buffer;
wenzelm
parents:
58835
diff
changeset
|
273 |
getBuffer.setTokenMarker(Isabelle.mode_token_marker("isabelle-output").get) |
63261
90a44d271683
proper noWordSep as in "isabelle" mode (cf. 5024d0c48e02);
wenzelm
parents:
63028
diff
changeset
|
274 |
getBuffer.setStringProperty("noWordSep", "_'?⇩") |
49475 | 275 |
|
49412 | 276 |
rich_text_area.activate() |
49398
0fa4389c04f9
alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff
changeset
|
277 |
} |