src/Tools/jEdit/src/graphview_dockable.scala
author wenzelm
Mon, 06 Mar 2017 17:08:51 +0100
changeset 65131 5d35f4bccfa7
parent 64621 7116f2634e32
child 66114 c137a9f038a6
permissions -rw-r--r--
proper Text.Range.offside (NB: in Scala ~1 == -2);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
49570
2265456f6131 more uniform graphview terminology;
wenzelm
parents: 49566
diff changeset
     1
/*  Title:      Tools/jEdit/src/graphview_dockable.scala
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
     2
    Author:     Makarius
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
     3
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
     4
Stateless dockable window for graphview.
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
     5
*/
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
     6
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
     7
package isabelle.jedit
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
     8
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
     9
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    10
import isabelle._
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
    11
53247
bd595338ca18 uniform use of isabelle.jEdit.Popup, based on generic screen location operations;
wenzelm
parents: 53177
diff changeset
    12
import javax.swing.JComponent
59286
ac74eedb910a GUI.imitate_font: more explicit result size, e.g. relevant for caching;
wenzelm
parents: 59245
diff changeset
    13
import java.awt.{Point, Font}
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    14
import java.awt.event.{WindowFocusListener, WindowEvent}
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    15
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    16
import org.gjt.sp.jedit.View
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    17
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    18
import scala.swing.TextArea
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    19
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    20
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    21
object Graphview_Dockable
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    22
{
57612
990ffb84489b clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents: 56662
diff changeset
    23
  /* implicit arguments -- owned by GUI thread */
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    24
52972
8fd8e1c14988 tuned signature;
wenzelm
parents: 52496
diff changeset
    25
  private var implicit_snapshot = Document.Snapshot.init
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    26
59245
be4180f3c236 more formal Graph_Display.Node (with ordering) and Graph_Display.Edge;
wenzelm
parents: 59233
diff changeset
    27
  private val no_graph: Exn.Result[Graph_Display.Graph] = Exn.Exn(ERROR("No graph"))
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    28
  private var implicit_graph = no_graph
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    29
59245
be4180f3c236 more formal Graph_Display.Node (with ordering) and Graph_Display.Edge;
wenzelm
parents: 59233
diff changeset
    30
  private def set_implicit(snapshot: Document.Snapshot, graph: Exn.Result[Graph_Display.Graph])
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    31
  {
57612
990ffb84489b clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents: 56662
diff changeset
    32
    GUI_Thread.require {}
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    33
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    34
    implicit_snapshot = snapshot
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    35
    implicit_graph = graph
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    36
  }
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    37
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    38
  private def reset_implicit(): Unit =
52972
8fd8e1c14988 tuned signature;
wenzelm
parents: 52496
diff changeset
    39
    set_implicit(Document.Snapshot.init, no_graph)
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    40
59245
be4180f3c236 more formal Graph_Display.Node (with ordering) and Graph_Display.Edge;
wenzelm
parents: 59233
diff changeset
    41
  def apply(view: View, snapshot: Document.Snapshot, graph: Exn.Result[Graph_Display.Graph])
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    42
  {
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    43
    set_implicit(snapshot, graph)
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    44
    view.getDockableWindowManager.floatDockableWindow("isabelle-graphview")
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    45
  }
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    46
}
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    47
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    48
49570
2265456f6131 more uniform graphview terminology;
wenzelm
parents: 49566
diff changeset
    49
class Graphview_Dockable(view: View, position: String) extends Dockable(view, position)
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
    50
{
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    51
  private val snapshot = Graphview_Dockable.implicit_snapshot
59228
56b34fc7a015 more dynamic visualizer -- re-use Isabelle/jEdit options;
wenzelm
parents: 57612
diff changeset
    52
  private val graph_result = Graphview_Dockable.implicit_graph
50446
8dc05db0bf69 always apply transitive_reduction_acyclic in imitation of old graph browser (essential to avoid slow layout and overcrowded display, e.g. class_deps);
wenzelm
parents: 50205
diff changeset
    53
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    54
  private val window_focus_listener =
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    55
    new WindowFocusListener {
59228
56b34fc7a015 more dynamic visualizer -- re-use Isabelle/jEdit options;
wenzelm
parents: 57612
diff changeset
    56
      def windowGainedFocus(e: WindowEvent) {
56b34fc7a015 more dynamic visualizer -- re-use Isabelle/jEdit options;
wenzelm
parents: 57612
diff changeset
    57
        Graphview_Dockable.set_implicit(snapshot, graph_result) }
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    58
      def windowLostFocus(e: WindowEvent) { Graphview_Dockable.reset_implicit() }
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    59
    }
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
    60
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    61
  val graphview =
59228
56b34fc7a015 more dynamic visualizer -- re-use Isabelle/jEdit options;
wenzelm
parents: 57612
diff changeset
    62
    graph_result match {
56b34fc7a015 more dynamic visualizer -- re-use Isabelle/jEdit options;
wenzelm
parents: 57612
diff changeset
    63
      case Exn.Res(graph) =>
59462
c7eff4356885 tuned signature;
wenzelm
parents: 59459
diff changeset
    64
        val graphview = new isabelle.graphview.Graphview(graph) {
59395
4c5396f52546 tuned signature;
wenzelm
parents: 59394
diff changeset
    65
          def options: Options = PIDE.options.value
4c5396f52546 tuned signature;
wenzelm
parents: 59394
diff changeset
    66
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    67
          override def make_tooltip(parent: JComponent, x: Int, y: Int, body: XML.Body): String =
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    68
          {
52494
a1e09340c0f4 clarified tooltip timing of pending event and active state;
wenzelm
parents: 52483
diff changeset
    69
            Pretty_Tooltip.invoke(() =>
a1e09340c0f4 clarified tooltip timing of pending event and active state;
wenzelm
parents: 52483
diff changeset
    70
              {
64621
7116f2634e32 clarified module name;
wenzelm
parents: 61176
diff changeset
    71
                val rendering = JEdit_Rendering(snapshot, options)
65131
5d35f4bccfa7 proper Text.Range.offside (NB: in Scala ~1 == -2);
wenzelm
parents: 64621
diff changeset
    72
                val info = Text.Info(Text.Range.offside, body)
53247
bd595338ca18 uniform use of isabelle.jEdit.Popup, based on generic screen location operations;
wenzelm
parents: 53177
diff changeset
    73
                Pretty_Tooltip(view, parent, new Point(x, y), rendering, Command.Results.empty, info)
52494
a1e09340c0f4 clarified tooltip timing of pending event and active state;
wenzelm
parents: 52483
diff changeset
    74
              })
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
    75
            null
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
    76
          }
59395
4c5396f52546 tuned signature;
wenzelm
parents: 59394
diff changeset
    77
4c5396f52546 tuned signature;
wenzelm
parents: 59394
diff changeset
    78
          override def make_font(): Font =
61176
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    79
            if (editor_style) Font_Info.main(PIDE.options.real("graphview_font_scale")).font
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    80
            else
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    81
              GUI.imitate_font(Font_Info.main().font,
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    82
                options.string("graphview_font_family"),
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    83
                options.real("graphview_font_scale"))
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    84
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    85
          override def foreground_color =
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    86
            if (editor_style) view.getTextArea.getPainter.getForeground
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    87
            else super.foreground_color
59395
4c5396f52546 tuned signature;
wenzelm
parents: 59394
diff changeset
    88
61176
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    89
          override def background_color =
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    90
            if (editor_style) view.getTextArea.getPainter.getBackground
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    91
            else super.background_color
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    92
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    93
          override def selection_color =
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    94
            if (editor_style) view.getTextArea.getPainter.getSelectionColor
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    95
            else super.selection_color
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    96
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    97
          override def highlight_color =
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    98
            if (editor_style) view.getTextArea.getPainter.getLineHighlightColor
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
    99
            else super.highlight_color
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
   100
59233
876a81f5788b tuned signature;
wenzelm
parents: 59231
diff changeset
   101
          override def error_color = PIDE.options.color_value("error_color")
61176
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
   102
9791f631c20d avoid hardwired colors;
wenzelm
parents: 60215
diff changeset
   103
          editor_style = true
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   104
        }
59459
985fc55e9f27 clarified module name;
wenzelm
parents: 59410
diff changeset
   105
        new isabelle.graphview.Main_Panel(graphview)
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
   106
      case Exn.Exn(exn) => new TextArea(Exn.message(exn))
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
   107
    }
50452
bfb5964e3041 stateless dockable window for graphview, which is triggered by the active area of the corresponding diagnostic command;
wenzelm
parents: 50446
diff changeset
   108
  set_content(graphview)
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
   109
59288
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   110
59396
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   111
  override def focusOnDefaultComponent
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   112
  {
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   113
    graphview match {
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   114
      case main_panel: isabelle.graphview.Main_Panel =>
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   115
        main_panel.tree_panel.tree.requestFocusInWindow
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   116
      case _ =>
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   117
    }
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   118
  }
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   119
a2f4252c5489 clarified main actions and keyboard focus;
wenzelm
parents: 59395
diff changeset
   120
59288
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   121
  /* main */
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   122
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   123
  private val main =
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   124
    Session.Consumer[Session.Global_Options](getClass.getName) {
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   125
      case _: Session.Global_Options =>
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   126
        GUI_Thread.later {
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   127
          graphview match {
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   128
            case main_panel: isabelle.graphview.Main_Panel =>
59392
02bacfc31446 support for tree view on graph nodes;
wenzelm
parents: 59290
diff changeset
   129
              main_panel.update_layout()
59288
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   130
            case _ =>
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   131
          }
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   132
        }
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   133
    }
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   134
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   135
  override def init()
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   136
  {
60215
5fb4990dfc73 misc tuning, based on warnings by IntelliJ IDEA;
wenzelm
parents: 59462
diff changeset
   137
    GUI.parent_window(this).foreach(_.addWindowFocusListener(window_focus_listener))
59288
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   138
    PIDE.session.global_options += main
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   139
  }
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   140
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   141
  override def exit()
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   142
  {
60215
5fb4990dfc73 misc tuning, based on warnings by IntelliJ IDEA;
wenzelm
parents: 59462
diff changeset
   143
    GUI.parent_window(this).foreach(_.removeWindowFocusListener(window_focus_listener))
59288
b1086f3e4590 apply layout on change of options;
wenzelm
parents: 59286
diff changeset
   144
    PIDE.session.global_options -= main
49566
66cbf8bb4693 basic integration of graphview into document model;
wenzelm
parents: 49557
diff changeset
   145
  }
49557
61988f9df94d added Graphview tool, based on Isabelle/Scala and Swing/Graphics2D;
Markus Kaiser <markus.kaiser@in.tum.de>
parents:
diff changeset
   146
}