author | wenzelm |
Mon, 28 Nov 2011 22:05:32 +0100 | |
changeset 45666 | d83797ef0d2d |
parent 44805 | 48a5c104d434 |
child 46208 | 4cab63a6dc16 |
permissions | -rw-r--r-- |
43282
5d294220ca43
moved sources -- eliminated Netbeans artifact of jedit package directory;
wenzelm
parents:
42978
diff
changeset
|
1 |
/* Title: Tools/jEdit/src/output_dockable.scala |
36760 | 2 |
Author: Makarius |
3 |
||
4 |
Dockable window with result message output. |
|
5 |
*/ |
|
34408 | 6 |
|
34318
c13e168a8ae6
original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff
changeset
|
7 |
package isabelle.jedit |
c13e168a8ae6
original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff
changeset
|
8 |
|
34760 | 9 |
|
36015 | 10 |
import isabelle._ |
11 |
||
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
12 |
import scala.actors.Actor._ |
34760 | 13 |
|
37017
cf6625012282
try CheckBox instead of ToggleButton, which is visually confusing without window focus, e.g. in a floating instance (problem of MacOS look-and-feel);
wenzelm
parents:
37014
diff
changeset
|
14 |
import scala.swing.{FlowPanel, Button, CheckBox} |
36988 | 15 |
import scala.swing.event.ButtonClicked |
16 |
||
43520
cec9b95fa35d
explicit import java.lang.System to prevent odd scope problems;
wenzelm
parents:
43419
diff
changeset
|
17 |
import java.lang.System |
37067 | 18 |
import java.awt.BorderLayout |
37014 | 19 |
import java.awt.event.{ComponentEvent, ComponentAdapter} |
34748 | 20 |
|
34318
c13e168a8ae6
original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff
changeset
|
21 |
import org.gjt.sp.jedit.View |
c13e168a8ae6
original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff
changeset
|
22 |
|
34765 | 23 |
|
37067 | 24 |
class Output_Dockable(view: View, position: String) extends Dockable(view, position) |
34760 | 25 |
{ |
38223 | 26 |
Swing_Thread.require() |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
27 |
|
39592 | 28 |
private val html_panel = |
43661
39fdbd814c7f
quasi-static Isabelle_System -- reduced tendency towards "functorial style";
wenzelm
parents:
43520
diff
changeset
|
29 |
new HTML_Panel(Isabelle.font_family(), scala.math.round(Isabelle.font_size())) |
42978
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
30 |
{ |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
31 |
override val handler: PartialFunction[HTML_Panel.Event, Unit] = { |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
32 |
case HTML_Panel.Mouse_Click(elem, event) if elem.getClassName() == "sendback" => |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
33 |
val text = elem.getFirstChild().getNodeValue() |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
34 |
|
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
35 |
Document_View(view.getTextArea) match { |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
36 |
case Some(doc_view) => |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
37 |
val cmd = current_command.get |
43419
6ed49c52d463
flush snapshot on falling edge of is_outdated -- recover effect of former buffer.propertiesChanged on text area (cf. f0770743b7ec);
wenzelm
parents:
43282
diff
changeset
|
38 |
val start_ofs = doc_view.update_snapshot().node.command_start(cmd).get |
42978
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
39 |
val buffer = view.getBuffer |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
40 |
buffer.beginCompoundEdit() |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
41 |
buffer.remove(start_ofs, cmd.length) |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
42 |
buffer.insert(start_ofs, text) |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
43 |
buffer.endCompoundEdit() |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
44 |
case None => |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
45 |
} |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
46 |
} |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
47 |
} |
6b41a075251f
adhoc event handler to insert 'sendback' text into the buffer, replacing the original command
krauss
parents:
39592
diff
changeset
|
48 |
|
39518 | 49 |
set_content(html_panel) |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
50 |
|
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
51 |
|
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
52 |
/* component state -- owned by Swing thread */ |
36988 | 53 |
|
37019 | 54 |
private var zoom_factor = 100 |
37131 | 55 |
private var show_tracing = false |
56 |
private var follow_caret = true |
|
57 |
private var current_command: Option[Command] = None |
|
37019 | 58 |
|
37131 | 59 |
|
60 |
private def handle_resize() |
|
61 |
{ |
|
37019 | 62 |
Swing_Thread.now { |
37164 | 63 |
html_panel.resize(Isabelle.font_family(), |
64 |
scala.math.round(Isabelle.font_size() * zoom_factor / 100)) |
|
37019 | 65 |
} |
37131 | 66 |
} |
36988 | 67 |
|
37849 | 68 |
private def handle_perspective(): Boolean = |
37131 | 69 |
Swing_Thread.now { |
70 |
Document_View(view.getTextArea) match { |
|
37849 | 71 |
case Some(doc_view) => |
72 |
val cmd = doc_view.selected_command() |
|
73 |
if (current_command == cmd) false |
|
74 |
else { current_command = cmd; true } |
|
75 |
case None => false |
|
37131 | 76 |
} |
77 |
} |
|
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
78 |
|
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
79 |
private def handle_update(restriction: Option[Set[Command]] = None) |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
80 |
{ |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
81 |
Swing_Thread.now { |
37849 | 82 |
if (follow_caret) handle_perspective() |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
83 |
Document_View(view.getTextArea) match { |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
84 |
case Some(doc_view) => |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
85 |
current_command match { |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
86 |
case Some(cmd) if !restriction.isDefined || restriction.get.contains(cmd) => |
43419
6ed49c52d463
flush snapshot on falling edge of is_outdated -- recover effect of former buffer.propertiesChanged on text area (cf. f0770743b7ec);
wenzelm
parents:
43282
diff
changeset
|
87 |
val snapshot = doc_view.update_snapshot() |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
88 |
val filtered_results = |
44582 | 89 |
snapshot.command_state(cmd).results.iterator.map(_._2) filter { |
45666 | 90 |
case XML.Elem(Markup(Isabelle_Markup.TRACING, _), _) => show_tracing // FIXME not scalable |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
91 |
case _ => true |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
92 |
} |
38872 | 93 |
html_panel.render(filtered_results.toList) |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
94 |
case _ => |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
95 |
} |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
96 |
case None => |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
97 |
} |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
98 |
} |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
99 |
} |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
100 |
|
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
101 |
|
37067 | 102 |
/* main actor */ |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
103 |
|
37067 | 104 |
private val main_actor = actor { |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
105 |
loop { |
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
106 |
react { |
37019 | 107 |
case Session.Global_Settings => handle_resize() |
44608 | 108 |
case changed: Session.Commands_Changed => handle_update(Some(changed.commands)) |
44805 | 109 |
case Session.Caret_Focus => if (follow_caret && handle_perspective()) handle_update() |
37067 | 110 |
case bad => System.err.println("Output_Dockable: ignoring bad message " + bad) |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
111 |
} |
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
112 |
} |
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
113 |
} |
34428
d69fd18f37f9
basic setup of anti-aliasing, according to jEdit property;
wenzelm
parents:
34424
diff
changeset
|
114 |
|
37067 | 115 |
override def init() |
34777
91d6089cef88
class Session models full session, with or without prover process (cf. heaps, browser_info);
wenzelm
parents:
34775
diff
changeset
|
116 |
{ |
37849 | 117 |
Isabelle.session.global_settings += main_actor |
37129 | 118 |
Isabelle.session.commands_changed += main_actor |
44805 | 119 |
Isabelle.session.caret_focus += main_actor |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
120 |
} |
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
121 |
|
37067 | 122 |
override def exit() |
34777
91d6089cef88
class Session models full session, with or without prover process (cf. heaps, browser_info);
wenzelm
parents:
34775
diff
changeset
|
123 |
{ |
37849 | 124 |
Isabelle.session.global_settings -= main_actor |
37129 | 125 |
Isabelle.session.commands_changed -= main_actor |
44805 | 126 |
Isabelle.session.caret_focus -= main_actor |
34768
d8d321af1478
back to low-level JPanel, required for addNotify/removeNotify;
wenzelm
parents:
34765
diff
changeset
|
127 |
} |
36988 | 128 |
|
129 |
||
37014 | 130 |
/* resize */ |
131 |
||
132 |
addComponentListener(new ComponentAdapter { |
|
37849 | 133 |
val delay = Swing_Thread.delay_last(Isabelle.session.update_delay) { handle_resize() } |
37014 | 134 |
override def componentResized(e: ComponentEvent) { delay() } |
135 |
}) |
|
136 |
||
137 |
||
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
138 |
/* controls */ |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
139 |
|
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
140 |
private val zoom = new Library.Zoom_Box(factor => { zoom_factor = factor; handle_resize() }) |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
141 |
zoom.tooltip = "Zoom factor for basic font size" |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
142 |
|
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
143 |
private val tracing = new CheckBox("Tracing") { |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
144 |
reactions += { case ButtonClicked(_) => show_tracing = this.selected; handle_update() } |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
145 |
} |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
146 |
tracing.selected = show_tracing |
37372 | 147 |
tracing.tooltip = "Indicate output of tracing messages" |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
148 |
|
37131 | 149 |
private val auto_update = new CheckBox("Auto update") { |
37130
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
150 |
reactions += { case ButtonClicked(_) => follow_caret = this.selected; handle_update() } |
7f18edbbf618
more reactive message handling, notably for follow_caret mode;
wenzelm
parents:
37129
diff
changeset
|
151 |
} |
37131 | 152 |
auto_update.selected = follow_caret |
37372 | 153 |
auto_update.tooltip = "Indicate automatic update following cursor movement" |
36988 | 154 |
|
37131 | 155 |
private val update = new Button("Update") { |
37849 | 156 |
reactions += { case ButtonClicked(_) => handle_perspective(); handle_update() } |
37131 | 157 |
} |
37372 | 158 |
update.tooltip = "Update display according to the command at cursor position" |
37131 | 159 |
|
39592 | 160 |
private val controls = new FlowPanel(FlowPanel.Alignment.Right)(zoom, tracing, auto_update, update) |
37039 | 161 |
add(controls.peer, BorderLayout.NORTH) |
162 |
||
36988 | 163 |
handle_update() |
34318
c13e168a8ae6
original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff
changeset
|
164 |
} |