src/Tools/jEdit/src/state_dockable.scala
author wenzelm
Fri, 01 Apr 2022 17:06:10 +0200
changeset 75393 87ebf5a50283
parent 73987 fc363a3b690a
child 75809 1dd5d4f4b69e
permissions -rw-r--r--
clarified formatting, for the sake of scala3;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     1
/*  Title:      Tools/jEdit/src/state_dockable.scala
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     3
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     4
Dockable window for proof state output.
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     5
*/
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     6
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     7
package isabelle.jedit
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     8
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
     9
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    10
import isabelle._
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    11
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    12
import scala.swing.{Button, CheckBox}
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    13
import scala.swing.event.ButtonClicked
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    14
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    15
import java.awt.BorderLayout
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    16
import java.awt.event.{ComponentEvent, ComponentAdapter}
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    17
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    18
import org.gjt.sp.jedit.View
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    19
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    20
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73987
diff changeset
    21
class State_Dockable(view: View, position: String) extends Dockable(view, position) {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    22
  GUI_Thread.require {}
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    23
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    24
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    25
  /* text area */
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    26
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    27
  val pretty_text_area = new Pretty_Text_Area(view)
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    28
  set_content(pretty_text_area)
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    29
71601
97ccf48c2f0c misc tuning based on hints by IntelliJ IDEA;
wenzelm
parents: 66591
diff changeset
    30
  override def detach_operation: Option[() => Unit] = pretty_text_area.detach_operation
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    31
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    32
  private val print_state =
66082
2d12a730a380 clarified modules;
wenzelm
parents: 65246
diff changeset
    33
    new Query_Operation(PIDE.editor, view, "print_state", _ => (),
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    34
      (snapshot, results, body) =>
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    35
        pretty_text_area.update(snapshot, results, Pretty.separate(body)))
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    36
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    37
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    38
  /* resize */
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    39
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    40
  private val delay_resize =
71704
b9a5eb0f3b43 clarified modules;
wenzelm
parents: 71601
diff changeset
    41
    Delay.first(PIDE.options.seconds("editor_update_delay"), gui = true) { handle_resize() }
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    42
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    43
  addComponentListener(new ComponentAdapter {
73340
0ffcad1f6130 tuned --- fewer warnings;
wenzelm
parents: 71704
diff changeset
    44
    override def componentResized(e: ComponentEvent): Unit = delay_resize.invoke()
0ffcad1f6130 tuned --- fewer warnings;
wenzelm
parents: 71704
diff changeset
    45
    override def componentShown(e: ComponentEvent): Unit = delay_resize.invoke()
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    46
  })
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    47
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73987
diff changeset
    48
  private def handle_resize(): Unit = {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    49
    GUI_Thread.require {}
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    50
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    51
    pretty_text_area.resize(
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    52
      Font_Info.main(PIDE.options.real("jedit_font_scale") * zoom.factor / 100))
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    53
  }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    54
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    55
61211
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    56
  /* update */
61210
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    57
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    58
  def update_request(): Unit =
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    59
    GUI_Thread.require { print_state.apply_query(Nil) }
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
    60
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73987
diff changeset
    61
  def update(): Unit = {
61210
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    62
    GUI_Thread.require {}
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    63
66091
wenzelm
parents: 66082
diff changeset
    64
    PIDE.editor.current_node_snapshot(view) match {
61211
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    65
      case Some(snapshot) =>
66082
2d12a730a380 clarified modules;
wenzelm
parents: 65246
diff changeset
    66
        (PIDE.editor.current_command(view, snapshot), print_state.get_location) match {
61211
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    67
          case (Some(command1), Some(command2)) if command1.id == command2.id =>
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    68
          case _ => update_request()
61211
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    69
        }
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    70
      case None =>
61210
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    71
    }
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    72
  }
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    73
a3a05d734858 support for auto update via caret focus;
wenzelm
parents: 61208
diff changeset
    74
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    75
  /* auto update */
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    76
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    77
  private var auto_update_enabled = true
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    78
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    79
  private def auto_update(): Unit =
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    80
    GUI_Thread.require { if (auto_update_enabled) update() }
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    81
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    82
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    83
  /* controls */
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    84
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
    85
  private val auto_update_button = new CheckBox("Auto update") {
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
    86
    tooltip = "Indicate automatic update following cursor movement"
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    87
    reactions += { case ButtonClicked(_) => auto_update_enabled = this.selected; auto_update() }
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    88
    selected = auto_update_enabled
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
    89
  }
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
    90
61220
1bb5a10b8ce0 tuned GUI;
wenzelm
parents: 61219
diff changeset
    91
  private val update_button = new Button("<html><b>Update</b></html>") {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    92
    tooltip = "Update display according to the command at cursor position"
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
    93
    reactions += { case ButtonClicked(_) => update_request() }
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    94
  }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    95
61211
8a5d5ca5d8bc added action "isabelle-update-state";
wenzelm
parents: 61210
diff changeset
    96
  private val locate_button = new Button("Locate") {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    97
    tooltip = "Locate printed command within source text"
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    98
    reactions += { case ButtonClicked(_) => print_state.locate_query() }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
    99
  }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   100
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   101
  private val zoom = new Font_Info.Zoom_Box { def changed = handle_resize() }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   102
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   103
  private val controls =
66205
e9fa94f43a15 tuned signature;
wenzelm
parents: 66091
diff changeset
   104
    Wrap_Panel(
e9fa94f43a15 tuned signature;
wenzelm
parents: 66091
diff changeset
   105
      List(auto_update_button, update_button,
66206
2d2082db735a clarified defaults;
wenzelm
parents: 66205
diff changeset
   106
        locate_button, pretty_text_area.search_label, pretty_text_area.search_field, zoom))
66205
e9fa94f43a15 tuned signature;
wenzelm
parents: 66091
diff changeset
   107
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   108
  add(controls.peer, BorderLayout.NORTH)
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   109
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   110
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   111
  /* main */
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   112
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   113
  private val main =
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   114
    Session.Consumer[Any](getClass.getName) {
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   115
      case _: Session.Global_Options =>
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   116
        GUI_Thread.later { handle_resize() }
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   117
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   118
      case changed: Session.Commands_Changed =>
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
   119
        if (changed.assignment) GUI_Thread.later { auto_update() }
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   120
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   121
      case Session.Caret_Focus =>
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
   122
        GUI_Thread.later { auto_update() }
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   123
    }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   124
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73987
diff changeset
   125
  override def init(): Unit = {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   126
    PIDE.session.global_options += main
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   127
    PIDE.session.commands_changed += main
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   128
    PIDE.session.caret_focus += main
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   129
    handle_resize()
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   130
    print_state.activate()
61801
fa8d1cdf6518 tuned signature;
wenzelm
parents: 61726
diff changeset
   131
    auto_update()
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   132
  }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   133
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73987
diff changeset
   134
  override def exit(): Unit = {
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   135
    print_state.deactivate()
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   136
    PIDE.session.caret_focus -= main
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   137
    PIDE.session.global_options -= main
61720
a31730632e13 recovered auto update from f9aaca00be49;
wenzelm
parents: 61220
diff changeset
   138
    PIDE.session.commands_changed -= main
61208
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   139
    delay_resize.revoke()
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   140
  }
19118f9b939d separate panel for proof state output;
wenzelm
parents:
diff changeset
   141
}