src/Tools/jEdit/src/pretty_text_area.scala
author wenzelm
Sun, 30 Dec 2012 18:23:07 +0100
changeset 50640 b35bd8778754
parent 50542 58bd88159f8f
child 50726 27478c11f63c
permissions -rw-r--r--
more informative error;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     1
/*  Title:      Tools/jEdit/src/pretty_text_area.scala
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     3
50160
a29be9d067d2 tuned comment;
wenzelm
parents: 49700
diff changeset
     4
GUI component for pretty-printed text with markup, rendered like jEdit
a29be9d067d2 tuned comment;
wenzelm
parents: 49700
diff changeset
     5
text area.
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     6
*/
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     7
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     8
package isabelle.jedit
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
     9
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    10
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    11
import isabelle._
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    12
50538
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    13
import java.awt.{Color, Font, FontMetrics, Toolkit}
49422
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
    14
import java.awt.event.{ActionListener, ActionEvent, KeyEvent}
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
    15
import javax.swing.{KeyStroke, JComponent}
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    16
49422
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
    17
import org.gjt.sp.jedit.{jEdit, View, Registers}
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    18
import org.gjt.sp.jedit.textarea.{AntiAlias, JEditEmbeddedTextArea}
50542
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    19
import org.gjt.sp.jedit.syntax.SyntaxStyle
50640
b35bd8778754 more informative error;
wenzelm
parents: 50542
diff changeset
    20
import org.gjt.sp.util.{SyntaxUtilities, Log}
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    21
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    22
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    23
object Pretty_Text_Area
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    24
{
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    25
  private def text_rendering(base_snapshot: Document.Snapshot, base_results: Command.Results,
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    26
    formatted_body: XML.Body): (String, Rendering) =
49471
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
    27
  {
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    28
    val (text, state) = Pretty_Text_Area.document_state(base_snapshot, base_results, formatted_body)
50205
788c8263e634 renamed main plugin object to PIDE;
wenzelm
parents: 50199
diff changeset
    29
    val rendering = Rendering(state.snapshot(), PIDE.options.value)
49471
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
    30
    (text, rendering)
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
    31
  }
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
    32
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    33
  private def document_state(base_snapshot: Document.Snapshot, base_results: Command.Results,
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    34
    formatted_body: XML.Body): (String, Document.State) =
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    35
  {
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    36
    val command = Command.rich_text(Document.new_id(), base_results, formatted_body)
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    37
    val node_name = command.node_name
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    38
    val edits: List[Document.Edit_Text] =
49414
d7b5fb2e9ca2 some support for inital command markup;
wenzelm
parents: 49413
diff changeset
    39
      List(node_name -> Document.Node.Edits(List(Text.Edit.insert(0, command.source))))
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    40
49419
e2726211f834 pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents: 49416
diff changeset
    41
    val state0 = base_snapshot.state.define_command(command)
e2726211f834 pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents: 49416
diff changeset
    42
    val version0 = base_snapshot.version
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    43
    val nodes0 = version0.nodes
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    44
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    45
    val nodes1 = nodes0 + (node_name -> nodes0(node_name).update_commands(Linear_Set(command)))
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    46
    val version1 = Document.Version.make(version0.syntax, nodes1)
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    47
    val state1 =
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    48
      state0.continue_history(Future.value(version0), edits, Future.value(version1))._2
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    49
        .define_version(version1, state0.the_assignment(version0))
49414
d7b5fb2e9ca2 some support for inital command markup;
wenzelm
parents: 49413
diff changeset
    50
        .assign(version1.id, List(command.id -> Some(Document.new_id())))._2
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    51
49416
1053a564dd25 some actual rich text markup via XML.content_markup;
wenzelm
parents: 49414
diff changeset
    52
    (command.source, state1)
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    53
  }
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    54
}
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
    55
50538
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    56
class Pretty_Text_Area(
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    57
  view: View,
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    58
  background: Option[Color] = None) extends JEditEmbeddedTextArea
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    59
{
49446
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
    60
  text_area =>
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
    61
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    62
  Swing_Thread.require()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    63
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    64
  private var current_font_family = "Dialog"
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    65
  private var current_font_size: Int = 12
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    66
  private var current_body: XML.Body = Nil
49419
e2726211f834 pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents: 49416
diff changeset
    67
  private var current_base_snapshot = Document.State.init.snapshot()
50507
9605b0d93d1e more formal class Command.Results;
wenzelm
parents: 50501
diff changeset
    68
  private var current_base_results = Command.Results.empty
50199
6d04e2422769 quasi-abstract module Rendering, with Isabelle-specific implementation;
wenzelm
parents: 50195
diff changeset
    69
  private var current_rendering: Rendering =
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
    70
    Pretty_Text_Area.text_rendering(current_base_snapshot, current_base_results, Nil)._2
49471
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
    71
  private var future_rendering: Option[java.util.concurrent.Future[Unit]] = None
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    72
50306
b655d2d0406d updated to jedit-5.0.0;
wenzelm
parents: 50216
diff changeset
    73
  private val rich_text_area =
b655d2d0406d updated to jedit-5.0.0;
wenzelm
parents: 50216
diff changeset
    74
    new Rich_Text_Area(view, text_area, () => current_rendering,
b655d2d0406d updated to jedit-5.0.0;
wenzelm
parents: 50216
diff changeset
    75
      caret_visible = false, hovering = true)
49416
1053a564dd25 some actual rich text markup via XML.content_markup;
wenzelm
parents: 49414
diff changeset
    76
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    77
  def refresh()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    78
  {
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    79
    Swing_Thread.require()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
    80
50168
4a575ef46466 always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents: 50166
diff changeset
    81
    val font = new Font(current_font_family, Font.PLAIN, current_font_size)
4a575ef46466 always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents: 50166
diff changeset
    82
    getPainter.setFont(font)
4a575ef46466 always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents: 50166
diff changeset
    83
    getPainter.setAntiAlias(new AntiAlias(jEdit.getProperty("view.antiAlias")))
4a575ef46466 always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents: 50166
diff changeset
    84
    getPainter.setStyles(SyntaxUtilities.loadStyles(current_font_family, current_font_size))
4a575ef46466 always refresh font metrics, to help window size calculation (amending 2585c81d840a);
wenzelm
parents: 50166
diff changeset
    85
50542
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    86
    val fold_line_style = new Array[SyntaxStyle](4)
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    87
    for (i <- 0 to 3) {
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    88
      fold_line_style(i) =
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    89
        SyntaxUtilities.parseStyle(
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    90
          jEdit.getProperty("view.style.foldLine." + i),
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    91
          current_font_family, current_font_size, true)
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    92
    }
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    93
    getPainter.setFoldLineStyle(fold_line_style)
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
    94
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
    95
    if (getWidth > 0) {
50538
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    96
      getGutter.setForeground(jEdit.getColorProperty("view.gutter.fgColor"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    97
      getGutter.setBackground(jEdit.getColorProperty("view.gutter.bgColor"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    98
      background.map(bg => { getPainter.setBackground(bg); getGutter.setBackground(bg) })
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
    99
      getGutter.setHighlightedForeground(jEdit.getColorProperty("view.gutter.highlightColor"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   100
      getGutter.setFoldColor(jEdit.getColorProperty("view.gutter.foldColor"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   101
      getGutter.setFont(jEdit.getFontProperty("view.gutter.font"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   102
      getGutter.setBorder(0,
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   103
        jEdit.getColorProperty("view.gutter.focusBorderColor"),
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   104
        jEdit.getColorProperty("view.gutter.noFocusBorderColor"),
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   105
        getPainter.getBackground)
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   106
      getGutter.setFoldPainter(getFoldPainter)
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   107
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   108
      getGutter.setGutterEnabled(jEdit.getBooleanProperty("view.gutter.enabled"))
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   109
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   110
      val font_metrics = getPainter.getFontMetrics(font)
50538
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   111
      val margin =
48cb76b785da init gutter according to view properties, which improves symmetry of windows and allows use of folds etc;
wenzelm
parents: 50507
diff changeset
   112
        ((getWidth - getGutter.getWidth) / (font_metrics.charWidth(Pretty.spc) max 1) - 2) max 20
49471
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
   113
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   114
      val base_snapshot = current_base_snapshot
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
   115
      val base_results = current_base_results
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   116
      val formatted_body = Pretty.formatted(current_body, margin, Pretty.font_metric(font_metrics))
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   117
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   118
      future_rendering.map(_.cancel(true))
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   119
      future_rendering = Some(default_thread_pool.submit(() =>
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   120
        {
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
   121
          val (text, rendering) =
50640
b35bd8778754 more informative error;
wenzelm
parents: 50542
diff changeset
   122
            try { Pretty_Text_Area.text_rendering(base_snapshot, base_results, formatted_body) }
b35bd8778754 more informative error;
wenzelm
parents: 50542
diff changeset
   123
            catch { case exn: Throwable => Log.log(Log.ERROR, this, exn); throw exn }
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   124
          Simple_Thread.interrupted_exception()
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   125
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   126
          Swing_Thread.later {
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   127
            current_rendering = rendering
50195
863b1dfc396c prefer buffer_edit combinator over Java-style boilerplate;
wenzelm
parents: 50168
diff changeset
   128
            JEdit_Lib.buffer_edit(getBuffer) {
50216
de77cde57376 reset active areas on content update;
wenzelm
parents: 50205
diff changeset
   129
              rich_text_area.active_reset()
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   130
              getBuffer.setReadOnly(false)
50542
58bd88159f8f fold handling within Pretty_Text_Area, based on formal document content, which is static here;
wenzelm
parents: 50538
diff changeset
   131
              getBuffer.setFoldHandler(new Fold_Handling.Document_Fold_Handler(rendering))
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   132
              setText(text)
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   133
              setCaretPosition(0)
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   134
              getBuffer.setReadOnly(true)
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   135
            }
49471
97964515a676 text_rendering as managed task, with cancellation;
wenzelm
parents: 49446
diff changeset
   136
          }
50166
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   137
        }))
2585c81d840a take component width as indication if it is already visible/layed-out, to avoid multiple formatting with minimal margin;
wenzelm
parents: 50160
diff changeset
   138
    }
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   139
  }
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   140
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   141
  def resize(font_family: String, font_size: Int)
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   142
  {
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   143
    Swing_Thread.require()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   144
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   145
    current_font_family = font_family
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   146
    current_font_size = font_size
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   147
    refresh()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   148
  }
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   149
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
   150
  def update(base_snapshot: Document.Snapshot, base_results: Command.Results, body: XML.Body)
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   151
  {
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   152
    Swing_Thread.require()
49419
e2726211f834 pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents: 49416
diff changeset
   153
    require(!base_snapshot.is_outdated)
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   154
49419
e2726211f834 pass base_snapshot to enable hyperlinks into other nodes;
wenzelm
parents: 49416
diff changeset
   155
    current_base_snapshot = base_snapshot
50501
6f41f1646617 more careful handling of Dialog_Result, with active area and color feedback;
wenzelm
parents: 50306
diff changeset
   156
    current_base_results = base_results
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   157
    current_body = body
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   158
    refresh()
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   159
  }
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   160
49422
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   161
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   162
  /* keyboard actions */
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   163
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   164
  private val action_listener = new ActionListener {
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   165
    def actionPerformed(e: ActionEvent) {
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   166
      e.getActionCommand match {
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   167
        case "copy" => Registers.copy(text_area, '$')
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   168
        case _ =>
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   169
      }
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   170
    }
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   171
  }
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   172
49446
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
   173
  registerKeyboardAction(action_listener, "copy",
49422
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   174
    KeyStroke.getKeyStroke(KeyEvent.VK_COPY, 0), JComponent.WHEN_FOCUSED)
49446
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
   175
  registerKeyboardAction(action_listener, "copy",
49422
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   176
    KeyStroke.getKeyStroke(KeyEvent.VK_C,
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   177
      Toolkit.getDefaultToolkit().getMenuShortcutKeyMask()), JComponent.WHEN_FOCUSED)
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   178
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   179
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   180
  /* init */
21f77309d93a minimal clipboard support (similar to org.lobobrowser.html.gui.HtmlBlockPanel);
wenzelm
parents: 49421
diff changeset
   181
49472
ba2c0d0cd429 no caret painting;
wenzelm
parents: 49471
diff changeset
   182
  getPainter.setStructureHighlightEnabled(false)
49475
8f3a3adadd5a tuned painter;
wenzelm
parents: 49472
diff changeset
   183
  getPainter.setLineHighlightEnabled(false)
8f3a3adadd5a tuned painter;
wenzelm
parents: 49472
diff changeset
   184
49446
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
   185
  getBuffer.setTokenMarker(new Token_Markup.Marker(true, None))
b8d8f738bf63 more direct GUI component;
wenzelm
parents: 49422
diff changeset
   186
  getBuffer.setReadOnly(true)
49475
8f3a3adadd5a tuned painter;
wenzelm
parents: 49472
diff changeset
   187
49412
4cac648e0f85 Pretty_Text_Area is based on Rich_Text_Area;
wenzelm
parents: 49398
diff changeset
   188
  rich_text_area.activate()
49398
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   189
}
0fa4389c04f9 alternative output panel, based on Pretty_Text_Area, based on JEditEmbeddedTextArea;
wenzelm
parents:
diff changeset
   190