# HG changeset patch
# User wenzelm
# Date 1375437081 -7200
# Node ID 82ac963c68cbfee0f6502e07d5f2c7c956918b21
# Parent 916bdb4227ba0ed485359f506a796fdd38bc2dee
dockable window for "find" dialog (GUI only);
diff -r 916bdb4227ba -r 82ac963c68cb src/Tools/jEdit/lib/Tools/jedit
--- a/src/Tools/jEdit/lib/Tools/jedit Fri Aug 02 11:50:38 2013 +0200
+++ b/src/Tools/jEdit/lib/Tools/jedit Fri Aug 02 11:51:21 2013 +0200
@@ -13,6 +13,7 @@
"src/document_model.scala"
"src/document_view.scala"
"src/documentation_dockable.scala"
+ "src/find_dockable.scala"
"src/fold_handling.scala"
"src/graphview_dockable.scala"
"src/html_panel.scala"
diff -r 916bdb4227ba -r 82ac963c68cb src/Tools/jEdit/src/Isabelle.props
--- a/src/Tools/jEdit/src/Isabelle.props Fri Aug 02 11:50:38 2013 +0200
+++ b/src/Tools/jEdit/src/Isabelle.props Fri Aug 02 11:51:21 2013 +0200
@@ -31,6 +31,7 @@
plugin.isabelle.jedit.Plugin.menu.label=Isabelle
plugin.isabelle.jedit.Plugin.menu= \
isabelle.documentation-panel \
+ isabelle.find-panel \
isabelle.monitor-panel \
isabelle.output-panel \
isabelle.protocol-panel \
@@ -41,6 +42,7 @@
isabelle.theories-panel \
isabelle.timing-panel
isabelle.documentation-panel.label=Documentation panel
+isabelle.find-panel.label=Find panel
isabelle.monitor-panel.label=Monitor panel
isabelle.output-panel.label=Output panel
isabelle.protocol-panel.label=Protocol panel
@@ -52,6 +54,7 @@
isabelle.timing-panel.label=Timing panel
#dockables
+isabelle-find.title=Find
isabelle-graphview.title=Graphview
isabelle-info.title=Info
isabelle-monitor.title=Monitor
diff -r 916bdb4227ba -r 82ac963c68cb src/Tools/jEdit/src/actions.xml
--- a/src/Tools/jEdit/src/actions.xml Fri Aug 02 11:50:38 2013 +0200
+++ b/src/Tools/jEdit/src/actions.xml Fri Aug 02 11:51:21 2013 +0200
@@ -27,6 +27,11 @@
wm.addDockableWindow("isabelle-readme");
+
+
+ wm.addDockableWindow("isabelle-find");
+
+
wm.addDockableWindow("isabelle-output");
diff -r 916bdb4227ba -r 82ac963c68cb src/Tools/jEdit/src/dockables.xml
--- a/src/Tools/jEdit/src/dockables.xml Fri Aug 02 11:50:38 2013 +0200
+++ b/src/Tools/jEdit/src/dockables.xml Fri Aug 02 11:51:21 2013 +0200
@@ -20,6 +20,9 @@
new isabelle.jedit.Output_Dockable(view, position);
+
+ new isabelle.jedit.Find_Dockable(view, position);
+
new isabelle.jedit.Info_Dockable(view, position);
diff -r 916bdb4227ba -r 82ac963c68cb src/Tools/jEdit/src/find_dockable.scala
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Tools/jEdit/src/find_dockable.scala Fri Aug 02 11:51:21 2013 +0200
@@ -0,0 +1,143 @@
+/* Title: Tools/jEdit/src/find_dockable.scala
+ Author: Makarius
+
+Dockable window for "find" dialog.
+*/
+
+package isabelle.jedit
+
+
+import isabelle._
+
+import scala.actors.Actor._
+
+import scala.swing.{FlowPanel, Button, Component}
+import scala.swing.event.ButtonClicked
+
+import java.awt.BorderLayout
+import java.awt.event.{ComponentEvent, ComponentAdapter}
+
+import org.gjt.sp.jedit.View
+import org.gjt.sp.jedit.gui.HistoryTextArea
+
+
+class Find_Dockable(view: View, position: String) extends Dockable(view, position)
+{
+ Swing_Thread.require()
+
+
+ /* component state -- owned by Swing thread */
+
+ private var zoom_factor = 100
+ private var current_snapshot = Document.State.init.snapshot()
+ private var current_state = Command.empty.init_state
+ private var current_output: List[XML.Tree] = Nil
+ private var current_location: Option[Command] = None
+
+
+ /* pretty text area */
+
+ val pretty_text_area = new Pretty_Text_Area(view)
+ set_content(pretty_text_area)
+
+
+ private def handle_resize()
+ {
+ Swing_Thread.require()
+
+ pretty_text_area.resize(Rendering.font_family(),
+ (Rendering.font_size("jedit_font_scale") * zoom_factor / 100).round)
+ }
+
+ private def handle_output()
+ {
+ Swing_Thread.require()
+ }
+
+ private def apply_query(text: String)
+ {
+ Swing_Thread.require()
+ }
+
+ private def locate_query()
+ {
+ Swing_Thread.require()
+ }
+
+
+ /* main actor */
+
+ private val main_actor = actor {
+ loop {
+ react {
+ case _: Session.Global_Options =>
+ Swing_Thread.later { handle_resize() }
+ case changed: Session.Commands_Changed =>
+ current_location match {
+ case Some(command) if changed.commands.contains(command) =>
+ Swing_Thread.later { handle_output() }
+ case _ =>
+ }
+ case bad =>
+ java.lang.System.err.println("Find_Dockable: ignoring bad message " + bad)
+ }
+ }
+ }
+
+ override def init()
+ {
+ Swing_Thread.require()
+
+ PIDE.session.global_options += main_actor
+ PIDE.session.commands_changed += main_actor
+ handle_output()
+ }
+
+ override def exit()
+ {
+ Swing_Thread.require()
+
+ PIDE.session.global_options -= main_actor
+ PIDE.session.commands_changed -= main_actor
+ delay_resize.revoke()
+ }
+
+
+ /* resize */
+
+ private val delay_resize =
+ Swing_Thread.delay_first(PIDE.options.seconds("editor_update_delay")) { handle_resize() }
+
+ addComponentListener(new ComponentAdapter {
+ override def componentResized(e: ComponentEvent) { delay_resize.invoke() }
+ })
+
+
+ /* controls */
+
+ private val query = new HistoryTextArea("isabelle-find-theorems") {
+ { val max = getPreferredSize; max.width = Integer.MAX_VALUE; setMaximumSize(max) }
+ setColumns(25)
+ setRows(1)
+ }
+
+ private val query_wrapped = Component.wrap(query)
+
+ private val find = new Button("Find") {
+ tooltip = "Find theorems meeting specified criteria"
+ reactions += { case ButtonClicked(_) => apply_query(query.getText) }
+ }
+
+ private val locate = new Button("Locate") {
+ tooltip = "Locate context of current query within source text"
+ reactions += { case ButtonClicked(_) => locate_query() }
+ }
+
+ private val zoom = new GUI.Zoom_Box(factor => { zoom_factor = factor; handle_resize() }) {
+ tooltip = "Zoom factor for output font size"
+ }
+
+ private val controls =
+ new FlowPanel(FlowPanel.Alignment.Right)(query_wrapped, find, locate, zoom)
+ add(controls.peer, BorderLayout.NORTH)
+}