isabelle: src/Tools/jEdit/src/plugin.scala@a319da4fbfb0 (annotated)

43282 5d294220ca43 moved sources -- eliminated Netbeans artifact of jedit package directory; wenzelm parents: 41537 diff changeset	1	/* Title: Tools/jEdit/src/plugin.scala
36760 b82a698ef6c9 tuned headers; wenzelm parents: 36015 diff changeset	2	Author: Makarius
b82a698ef6c9 tuned headers; wenzelm parents: 36015 diff changeset	3
b82a698ef6c9 tuned headers; wenzelm parents: 36015 diff changeset	4	Main Isabelle/jEdit plugin setup.
b82a698ef6c9 tuned headers; wenzelm parents: 36015 diff changeset	5	*/
34407 aad6834ba380 added some headers and comments; wenzelm parents: 34406 diff changeset	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
34429 03afc73e185f tuned; wenzelm parents: 34422 diff changeset	9
36015 6111de7c916a adapted to Scala 2.8.0 Beta 1; wenzelm parents: 34871 diff changeset	10	import isabelle._
6111de7c916a adapted to Scala 2.8.0 Beta 1; wenzelm parents: 34871 diff changeset	11
34429 03afc73e185f tuned; wenzelm parents: 34422 diff changeset	12	import java.io.{FileInputStream, IOException}
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	13	import java.awt.Font
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	14
34497 184fda8cce04 more explicit indication of mutable collections; wenzelm parents: 34487 diff changeset	15	import scala.collection.mutable
39517 e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	16	import scala.swing.ComboBox
34406 f81cd75ae331 restructured: independent provers in different buffers immler@in.tum.de parents: 34337 diff changeset	17
39241 e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	18	import org.gjt.sp.jedit.{jEdit, GUIUtilities, EBMessage, EBPlugin,
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	19	Buffer, EditPane, ServiceManager, View}
34406 f81cd75ae331 restructured: independent provers in different buffers immler@in.tum.de parents: 34337 diff changeset	20	import org.gjt.sp.jedit.buffer.JEditBuffer
39043 a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	21	import org.gjt.sp.jedit.textarea.{JEditTextArea, TextArea}
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	22	import org.gjt.sp.jedit.msg.{EditorStarted, BufferUpdate, EditPaneUpdate, PropertiesChanged}
37068 07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	23	import org.gjt.sp.jedit.gui.DockableWindowManager
34429 03afc73e185f tuned; wenzelm parents: 34422 diff changeset	24
39241 e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	25	import org.gjt.sp.util.Log
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	26
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	27	import scala.actors.Actor
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	28	import Actor._
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	29
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	30
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	31	object Isabelle
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	32	{
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	33	/* plugin instance */
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	34
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	35	var system: Isabelle_System = null
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	36	var session: Session = null
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	37
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	38
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	39	/* properties */
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	40
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	41	val OPTION_PREFIX = "options.isabelle."
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	42
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	43	object Property
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	44	{
36814 dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	45	def apply(name: String): String =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	46	jEdit.getProperty(OPTION_PREFIX + name)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	47	def apply(name: String, default: String): String =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	48	jEdit.getProperty(OPTION_PREFIX + name, default)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	49	def update(name: String, value: String) =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	50	jEdit.setProperty(OPTION_PREFIX + name, value)
34468 9d4b4f290676 maintain Isabelle properties via object Isabelle.Property with apply/update methods; wenzelm parents: 34463 diff changeset	51	}
34433 3da749b53842 renamed Plugin.plugin to Plugin.self; wenzelm parents: 34429 diff changeset	52
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	53	object Boolean_Property
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	54	{
36814 dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	55	def apply(name: String): Boolean =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	56	jEdit.getBooleanProperty(OPTION_PREFIX + name)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	57	def apply(name: String, default: Boolean): Boolean =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	58	jEdit.getBooleanProperty(OPTION_PREFIX + name, default)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	59	def update(name: String, value: Boolean) =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	60	jEdit.setBooleanProperty(OPTION_PREFIX + name, value)
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	61	}
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	62
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	63	object Int_Property
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	64	{
36814 dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	65	def apply(name: String): Int =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	66	jEdit.getIntegerProperty(OPTION_PREFIX + name)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	67	def apply(name: String, default: Int): Int =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	68	jEdit.getIntegerProperty(OPTION_PREFIX + name, default)
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	69	def update(name: String, value: Int) =
dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	70	jEdit.setIntegerProperty(OPTION_PREFIX + name, value)
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	71	}
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	72
40848 8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	73	object Double_Property
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	74	{
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	75	def apply(name: String): Double =
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	76	jEdit.getDoubleProperty(OPTION_PREFIX + name, 0.0)
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	77	def apply(name: String, default: Double): Double =
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	78	jEdit.getDoubleProperty(OPTION_PREFIX + name, default)
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	79	def update(name: String, value: Double) =
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	80	jEdit.setDoubleProperty(OPTION_PREFIX + name, value)
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	81	}
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	82
40850 d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	83	object Time_Property
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	84	{
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	85	def apply(name: String): Time =
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	86	Time.seconds(Double_Property(name))
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	87	def apply(name: String, default: Time): Time =
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	88	Time.seconds(Double_Property(name, default.seconds))
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	89	def update(name: String, value: Time) =
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	90	Double_Property.update(name, value.seconds)
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	91	}
d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	92
40848 8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double; wenzelm parents: 40474 diff changeset	93
37164 8b4617ad1593 reuse main view.font from jEdit; wenzelm parents: 37068 diff changeset	94	/* font */
8b4617ad1593 reuse main view.font from jEdit; wenzelm parents: 37068 diff changeset	95
8b4617ad1593 reuse main view.font from jEdit; wenzelm parents: 37068 diff changeset	96	def font_family(): String = jEdit.getProperty("view.font")
8b4617ad1593 reuse main view.font from jEdit; wenzelm parents: 37068 diff changeset	97
37019 8f747cee4e27 zoom font size; wenzelm parents: 36814 diff changeset	98	def font_size(): Float =
8f747cee4e27 zoom font size; wenzelm parents: 36814 diff changeset	99	(jEdit.getIntegerProperty("view.fontsize", 16) *
8f747cee4e27 zoom font size; wenzelm parents: 36814 diff changeset	100	Int_Property("relative-font-size", 100)).toFloat / 100
36814 dc85664dbf6d support Isabelle plugin properties with defaults; wenzelm parents: 36760 diff changeset	101
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	102
39043 a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	103	/* text area ranges */
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	104
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	105	case class Gfx_Range(val x: Int, val y: Int, val length: Int)
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	106
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	107	def gfx_range(text_area: TextArea, range: Text.Range): Option[Gfx_Range] =
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	108	{
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	109	val p = text_area.offsetToXY(range.start)
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	110	val q = text_area.offsetToXY(range.stop)
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	111	if (p != null && q != null && p.y == q.y) Some(new Gfx_Range(p.x, p.y, q.x - p.x))
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	112	else None
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	113	}
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	114
a0d7e9b580ec added gfx_range convenience; wenzelm parents: 38854 diff changeset	115
37201 8517a650cfdc control tooltip font via Swing HTML, with tooltip-font-size property; wenzelm parents: 37177 diff changeset	116	/* tooltip markup */
8517a650cfdc control tooltip font via Swing HTML, with tooltip-font-size property; wenzelm parents: 37177 diff changeset	117
8517a650cfdc control tooltip font via Swing HTML, with tooltip-font-size property; wenzelm parents: 37177 diff changeset	118	def tooltip(text: String): String =
37203 c4261f3bbdd7 more flexibile font size via CSS <style> instead of old <font> element; wenzelm parents: 37201 diff changeset	119	"<html><pre style=\"font-family: " + font_family() + "; font-size: " +
c4261f3bbdd7 more flexibile font size via CSS <style> instead of old <font> element; wenzelm parents: 37201 diff changeset	120	Int_Property("tooltip-font-size", 10).toString + "px; \">" + // FIXME proper scaling (!?)
c4261f3bbdd7 more flexibile font size via CSS <style> instead of old <font> element; wenzelm parents: 37201 diff changeset	121	HTML.encode(text) + "</pre></html>"
37201 8517a650cfdc control tooltip font via Swing HTML, with tooltip-font-size property; wenzelm parents: 37177 diff changeset	122
40849 09270033330e store tooltip-dismiss-delay as Double(seconds); wenzelm parents: 40848 diff changeset	123	def tooltip_dismiss_delay(): Time =
40852 aee98c88c587 builtin time bounds (again); wenzelm parents: 40850 diff changeset	124	Time_Property("tooltip-dismiss-delay", Time.seconds(8.0)) max Time.seconds(0.5)
38854 eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	125
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	126	def setup_tooltips()
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	127	{
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	128	Swing_Thread.now {
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	129	val manager = javax.swing.ToolTipManager.sharedInstance
40849 09270033330e store tooltip-dismiss-delay as Double(seconds); wenzelm parents: 40848 diff changeset	130	manager.setDismissDelay(tooltip_dismiss_delay().ms.toInt)
38854 eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	131	}
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	132	}
eb6a35be18ca Isabelle/jEdit property for global tooltip dismiss delay; wenzelm parents: 38843 diff changeset	133
37201 8517a650cfdc control tooltip font via Swing HTML, with tooltip-font-size property; wenzelm parents: 37177 diff changeset	134
39241 e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	135	/* icons */
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	136
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	137	def load_icon(name: String): javax.swing.Icon =
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	138	{
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	139	val icon = GUIUtilities.loadIcon(name)
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	140	if (icon.getIconWidth < 0 \|\| icon.getIconHeight < 0)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	141	Log.log(Log.ERROR, icon, "Bad icon: " + name)
39241 e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	142	icon
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	143	}
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	144
e9a442606db3 Isabelle.load_icon with some sanity checks; wenzelm parents: 39167 diff changeset	145
41382 d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	146	/* check JVM */
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	147
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	148	def check_jvm()
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	149	{
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	150	if (!Platform.is_hotspot) {
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	151	Library.warning_dialog(jEdit.getActiveView, "Bad Java Virtual Machine",
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	152	"This is " + Platform.jvm_name,
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	153	"Isabelle/jEdit requires Java Hotspot from Sun/Oracle/Apple!")
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	154	}
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	155	}
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	156
d19b8388d4b1 explicit JVM check on startup; wenzelm parents: 40852 diff changeset	157
38221 e0f00f0945b4 misc tuning and clarification; wenzelm parents: 37557 diff changeset	158	/* main jEdit components */
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	159
37177 17331ca75044 avoid deprecated Iterator.fromArray; wenzelm parents: 37164 diff changeset	160	def jedit_buffers(): Iterator[Buffer] = jEdit.getBuffers().iterator
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	161
37177 17331ca75044 avoid deprecated Iterator.fromArray; wenzelm parents: 37164 diff changeset	162	def jedit_views(): Iterator[View] = jEdit.getViews().iterator
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	163
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	164	def jedit_text_areas(view: View): Iterator[JEditTextArea] =
37177 17331ca75044 avoid deprecated Iterator.fromArray; wenzelm parents: 37164 diff changeset	165	view.getEditPanes().iterator.map(_.getTextArea)
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	166
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	167	def jedit_text_areas(): Iterator[JEditTextArea] =
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	168	jedit_views().flatMap(jedit_text_areas(_))
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	169
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	170	def jedit_text_areas(buffer: JEditBuffer): Iterator[JEditTextArea] =
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	171	jedit_text_areas().filter(_.getBuffer == buffer)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	172
38843 d95522496593 more careful locking of jEdit buffer; wenzelm parents: 38640 diff changeset	173	def buffer_lock[A](buffer: JEditBuffer)(body: => A): A =
38640 105d1f112da5 sporadic locking of jEdit buffer; wenzelm parents: 38222 diff changeset	174	{
105d1f112da5 sporadic locking of jEdit buffer; wenzelm parents: 38222 diff changeset	175	try { buffer.readLock(); body }
105d1f112da5 sporadic locking of jEdit buffer; wenzelm parents: 38222 diff changeset	176	finally { buffer.readUnlock() }
105d1f112da5 sporadic locking of jEdit buffer; wenzelm parents: 38222 diff changeset	177	}
105d1f112da5 sporadic locking of jEdit buffer; wenzelm parents: 38222 diff changeset	178
38843 d95522496593 more careful locking of jEdit buffer; wenzelm parents: 38640 diff changeset	179	def swing_buffer_lock[A](buffer: JEditBuffer)(body: => A): A =
d95522496593 more careful locking of jEdit buffer; wenzelm parents: 38640 diff changeset	180	Swing_Thread.now { buffer_lock(buffer) { body } }
d95522496593 more careful locking of jEdit buffer; wenzelm parents: 38640 diff changeset	181
40474 576b88b1dce9 added buffer_text convenience, with explicit locking; wenzelm parents: 39741 diff changeset	182	def buffer_text(buffer: JEditBuffer): String =
576b88b1dce9 added buffer_text convenience, with explicit locking; wenzelm parents: 39741 diff changeset	183	buffer_lock(buffer) { buffer.getText(0, buffer.getLength) }
576b88b1dce9 added buffer_text convenience, with explicit locking; wenzelm parents: 39741 diff changeset	184
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	185
37068 07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	186	/* dockable windows */
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	187
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	188	private def wm(view: View): DockableWindowManager = view.getDockableWindowManager
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	189
39515 57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	190	def docked_session(view: View): Option[Session_Dockable] =
57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	191	wm(view).getDockableWindow("isabelle-session") match {
57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	192	case dockable: Session_Dockable => Some(dockable)
57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	193	case _ => None
57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	194	}
57ceabb0bb8e basic setup for prover session panel; wenzelm parents: 39241 diff changeset	195
37068 07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	196	def docked_output(view: View): Option[Output_Dockable] =
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	197	wm(view).getDockableWindow("isabelle-output") match {
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	198	case dockable: Output_Dockable => Some(dockable)
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	199	case _ => None
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	200	}
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	201
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	202	def docked_raw_output(view: View): Option[Raw_Output_Dockable] =
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	203	wm(view).getDockableWindow("isabelle-raw-output") match {
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	204	case dockable: Raw_Output_Dockable => Some(dockable)
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	205	case _ => None
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	206	}
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	207
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	208	def docked_protocol(view: View): Option[Protocol_Dockable] =
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	209	wm(view).getDockableWindow("isabelle-protocol") match {
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	210	case dockable: Protocol_Dockable => Some(dockable)
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	211	case _ => None
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	212	}
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	213
07936a4efe93 access statically typed dockable windows; wenzelm parents: 37019 diff changeset	214
39517 e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	215	/* logic image */
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	216
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	217	def default_logic(): String =
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	218	{
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	219	val logic = system.getenv("JEDIT_LOGIC")
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	220	if (logic != "") logic
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	221	else system.getenv_strict("ISABELLE_LOGIC")
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	222	}
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	223
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	224	class Logic_Entry(val name: String, val description: String)
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	225	{
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	226	override def toString = description
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	227	}
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	228
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	229	def logic_selector(logic: String): ComboBox[Logic_Entry] =
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	230	{
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	231	val entries =
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	232	new Logic_Entry("", "default (" + default_logic() + ")") ::
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	233	system.find_logics().map(name => new Logic_Entry(name, name))
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	234	val component = new ComboBox(entries)
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	235	entries.find(_.name == logic) match {
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	236	case None =>
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	237	case Some(entry) => component.selection.item = entry
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	238	}
39702 d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	239	component.tooltip = "Isabelle logic image"
39517 e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	240	component
e036c67448e6 separate Isabelle.logic_selector; wenzelm parents: 39515 diff changeset	241	}
39702 d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	242
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	243	def start_session()
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	244	{
40852 aee98c88c587 builtin time bounds (again); wenzelm parents: 40850 diff changeset	245	val timeout = Time_Property("startup-timeout", Time.seconds(10)) max Time.seconds(5)
39702 d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	246	val modes = system.getenv("JEDIT_PRINT_MODE").split(",").toList.map("-m" + _)
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	247	val logic = {
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	248	val logic = Property("logic")
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	249	if (logic != null && logic != "") logic
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	250	else Isabelle.default_logic()
d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	251	}
40850 d804de9ac970 more abstract handling of Time properties; wenzelm parents: 40849 diff changeset	252	session.start(timeout, modes ::: List(logic))
39702 d7c256cb2797 Session_Dockable: more startup controls; wenzelm parents: 39701 diff changeset	253	}
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	254	}
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	255
34429 03afc73e185f tuned; wenzelm parents: 34422 diff changeset	256
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	257	class Plugin extends EBPlugin
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	258	{
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	259	/* session management */
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	260
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	261	private def init_model(buffer: Buffer)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	262	{
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	263	Isabelle.swing_buffer_lock(buffer) {
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	264	val opt_model =
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	265	Document_Model(buffer) match {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	266	case Some(model) => model.refresh; Some(model)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	267	case None =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	268	Thy_Header.split_thy_path(Isabelle.system.posix_path(buffer.getPath)) match {
41537 3837045cc8a1 full theory path enables loading parents via master directory and keeps files strictly separate; wenzelm parents: 41383 diff changeset	269	case Some((dir, thy_name)) =>
3837045cc8a1 full theory path enables loading parents via master directory and keeps files strictly separate; wenzelm parents: 41383 diff changeset	270	Some(Document_Model.init(Isabelle.session, buffer, dir + "/" + thy_name))
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	271	case None => None
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	272	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	273	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	274	if (opt_model.isDefined) {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	275	for (text_area <- Isabelle.jedit_text_areas(buffer)) {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	276	if (Document_View(text_area).map(_.model) != opt_model)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	277	Document_View.init(opt_model.get, text_area)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	278	}
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	279	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	280	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	281	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	282
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	283	private def exit_model(buffer: Buffer)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	284	{
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	285	Isabelle.swing_buffer_lock(buffer) {
39637 cc3452317b5f slightly more robust EditBus plumbing wrt. Document_View/Document_Model; wenzelm parents: 39634 diff changeset	286	Isabelle.jedit_text_areas(buffer).foreach(Document_View.exit)
cc3452317b5f slightly more robust EditBus plumbing wrt. Document_View/Document_Model; wenzelm parents: 39634 diff changeset	287	Document_Model.exit(buffer)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	288	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	289	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	290
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	291	private case class Init_Model(buffer: Buffer)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	292	private case class Exit_Model(buffer: Buffer)
39741 62b91eb2d39a CONTROL-mouse management: handle windowIconified; wenzelm parents: 39735 diff changeset	293	private case class Init_View(buffer: Buffer, text_area: JEditTextArea)
62b91eb2d39a CONTROL-mouse management: handle windowIconified; wenzelm parents: 39735 diff changeset	294	private case class Exit_View(buffer: Buffer, text_area: JEditTextArea)
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	295
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	296	private val session_manager = actor {
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	297	var ready = false
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	298	loop {
26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	299	react {
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	300	case phase: Session.Phase =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	301	ready = phase == Session.Ready
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	302	phase match {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	303	case Session.Failed =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	304	Swing_Thread.now {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	305	val text = new scala.swing.TextArea(Isabelle.session.syslog())
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	306	text.editable = false
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	307	Library.error_dialog(jEdit.getActiveView, "Failed to start Isabelle process", text)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	308	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	309
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	310	case Session.Ready => Isabelle.jedit_buffers.foreach(init_model)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	311	case Session.Shutdown => Isabelle.jedit_buffers.foreach(exit_model)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	312	case _ =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	313	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	314
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	315	case Init_Model(buffer) =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	316	if (ready) init_model(buffer)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	317
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	318	case Exit_Model(buffer) =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	319	exit_model(buffer)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	320
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	321	case Init_View(buffer, text_area) =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	322	if (ready) {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	323	Isabelle.swing_buffer_lock(buffer) {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	324	Document_Model(buffer) match {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	325	case Some(model) => Document_View.init(model, text_area)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	326	case None =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	327	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	328	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	329	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	330
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	331	case Exit_View(buffer, text_area) =>
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	332	Isabelle.swing_buffer_lock(buffer) {
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	333	Document_View.exit(text_area)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	334	}
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	335
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	336	case bad => System.err.println("session_manager: ignoring bad message " + bad)
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	337	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	338	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	339	}
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	340
44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	341
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	342	/* main plugin plumbing */
34433 3da749b53842 renamed Plugin.plugin to Plugin.self; wenzelm parents: 34429 diff changeset	343
34767 8dd19c5f8c56 added properties_changed event bus; wenzelm parents: 34764 diff changeset	344	override def handleMessage(message: EBMessage)
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	345	{
34767 8dd19c5f8c56 added properties_changed event bus; wenzelm parents: 34764 diff changeset	346	message match {
41383 514bb82514df check JVM later, to avoid potential conflict with jEdit splash screen; wenzelm parents: 41382 diff changeset	347	case msg: EditorStarted =>
514bb82514df check JVM later, to avoid potential conflict with jEdit splash screen; wenzelm parents: 41382 diff changeset	348	Isabelle.check_jvm()
514bb82514df check JVM later, to avoid potential conflict with jEdit splash screen; wenzelm parents: 41382 diff changeset	349	if (Isabelle.Boolean_Property("auto-start")) Isabelle.start_session()
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	350
37557 1ae272fd4082 refresh Isabelle token marker after buffer properties changed, e.g. when fold mode is switched; wenzelm parents: 37241 diff changeset	351	case msg: BufferUpdate
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	352	if msg.getWhat == BufferUpdate.PROPERTIES_CHANGED =>
39634 4030a9ef9c5a separate Plugin.init_model; wenzelm parents: 39633 diff changeset	353
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	354	val buffer = msg.getBuffer
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	355	if (buffer != null) session_manager ! Init_Model(buffer)
37557 1ae272fd4082 refresh Isabelle token marker after buffer properties changed, e.g. when fold mode is switched; wenzelm parents: 37241 diff changeset	356
39634 4030a9ef9c5a separate Plugin.init_model; wenzelm parents: 39633 diff changeset	357	case msg: EditPaneUpdate
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	358	if (msg.getWhat == EditPaneUpdate.BUFFER_CHANGING \|\|
39637 cc3452317b5f slightly more robust EditBus plumbing wrt. Document_View/Document_Model; wenzelm parents: 39634 diff changeset	359	msg.getWhat == EditPaneUpdate.BUFFER_CHANGED \|\|
39634 4030a9ef9c5a separate Plugin.init_model; wenzelm parents: 39633 diff changeset	360	msg.getWhat == EditPaneUpdate.CREATED \|\|
4030a9ef9c5a separate Plugin.init_model; wenzelm parents: 39633 diff changeset	361	msg.getWhat == EditPaneUpdate.DESTROYED) =>
4030a9ef9c5a separate Plugin.init_model; wenzelm parents: 39633 diff changeset	362
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	363	val edit_pane = msg.getEditPane
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	364	val buffer = edit_pane.getBuffer
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	365	val text_area = edit_pane.getTextArea
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	366
39637 cc3452317b5f slightly more robust EditBus plumbing wrt. Document_View/Document_Model; wenzelm parents: 39634 diff changeset	367	if (buffer != null && text_area != null) {
39735 969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	368	if (msg.getWhat == EditPaneUpdate.BUFFER_CHANGED \|\|
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	369	msg.getWhat == EditPaneUpdate.CREATED)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	370	session_manager ! Init_View(buffer, text_area)
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	371	else
969ede84aac0 more uniform init/exit model/view in session_manager, trading race wrt. session.phase for race wrt. global editor state; wenzelm parents: 39702 diff changeset	372	session_manager ! Exit_View(buffer, text_area)
34671 d179fcb04cbc output_info specific to prover immler@in.tum.de parents: 34670 diff changeset	373	}
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	374
34777 91d6089cef88 class Session models full session, with or without prover process (cf. heaps, browser_info); wenzelm parents: 34774 diff changeset	375	case msg: PropertiesChanged =>
37241 04d2521e79b0 basic support for sub/superscript token markup -- NB: need to maintain extended token types eagerly, since jEdit occasionally reinstalls a style array that is too short; wenzelm parents: 37203 diff changeset	376	Swing_Thread.now {
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	377	Isabelle.setup_tooltips()
37241 04d2521e79b0 basic support for sub/superscript token markup -- NB: need to maintain extended token types eagerly, since jEdit occasionally reinstalls a style array that is too short; wenzelm parents: 37203 diff changeset	378	for (text_area <- Isabelle.jedit_text_areas if Document_View(text_area).isDefined)
04d2521e79b0 basic support for sub/superscript token markup -- NB: need to maintain extended token types eagerly, since jEdit occasionally reinstalls a style array that is too short; wenzelm parents: 37203 diff changeset	379	Document_View(text_area).get.extend_styles()
04d2521e79b0 basic support for sub/superscript token markup -- NB: need to maintain extended token types eagerly, since jEdit occasionally reinstalls a style array that is too short; wenzelm parents: 37203 diff changeset	380	}
34791 b97d5b38dea4 explicit object Session.Global_Settings; wenzelm parents: 34788 diff changeset	381	Isabelle.session.global_settings.event(Session.Global_Settings)
34784 02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea); wenzelm parents: 34782 diff changeset	382
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	383	case _ =>
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	384	}
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	385	}
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	386
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	387	override def start()
e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	388	{
39630 44181423183a explicit Session.Phase indication with associated event bus; wenzelm parents: 39628 diff changeset	389	Isabelle.setup_tooltips()
34615 5e61055bf35b renamed IsabelleProcess to Isabelle_Process; wenzelm parents: 34612 diff changeset	390	Isabelle.system = new Isabelle_System
34774 1fa466333361 install_fonts; wenzelm parents: 34772 diff changeset	391	Isabelle.system.install_fonts()
39628 f6e82967b5cd Plugin.stop: refrain from invalidating Isabelle.session -- some actors/dockables out there might still refer to it; wenzelm parents: 39518 diff changeset	392	Isabelle.session = new Session(Isabelle.system)
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	393	Isabelle.session.phase_changed += session_manager
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	394	}
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	395
39628 f6e82967b5cd Plugin.stop: refrain from invalidating Isabelle.session -- some actors/dockables out there might still refer to it; wenzelm parents: 39518 diff changeset	396	override def stop()
34618 e45052ff7233 added Boolean_Property, Int_Property; wenzelm parents: 34615 diff changeset	397	{
39628 f6e82967b5cd Plugin.stop: refrain from invalidating Isabelle.session -- some actors/dockables out there might still refer to it; wenzelm parents: 39518 diff changeset	398	Isabelle.session.stop()
39633 26a28110ece5 simplified Session.Phase; wenzelm parents: 39631 diff changeset	399	Isabelle.session.phase_changed -= session_manager
34318 c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	400	}
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout; wenzelm parents: diff changeset	401	}

author	wenzelm
	Wed, 08 Jun 2011 21:40:54 +0200
changeset 43286	a319da4fbfb0
parent 43282	5d294220ca43
child 43390	7ee98a3802af
permissions	-rw-r--r--