src/Pure/System/gui.scala
author wenzelm
Sat, 21 Sep 2013 20:31:03 +0200
changeset 53778 29eaacff4078
parent 53714 89fb20ae9b73
permissions -rw-r--r--
proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/System/gui.scala
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     3
53712
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
     4
Basic GUI tools (for AWT/Swing).
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     5
*/
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     6
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     7
package isabelle
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     8
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
     9
53712
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
    10
import java.awt.{Image, Component, Container, Toolkit, Window}
53778
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
    11
import javax.swing.{ImageIcon, JOptionPane, UIManager, JLayeredPane, JFrame, JWindow}
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    12
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    13
import scala.swing.{ComboBox, TextArea, ScrollPane}
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    14
import scala.swing.event.SelectionChanged
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    15
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    16
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    17
object GUI
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    18
{
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    19
  /* Swing look-and-feel */
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    20
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    21
  def get_laf(): String =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    22
  {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    23
    def laf(name: String): Option[String] =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    24
      UIManager.getInstalledLookAndFeels().find(_.getName == name).map(_.getClassName)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    25
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    26
    if (Platform.is_windows || Platform.is_macos)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    27
      UIManager.getSystemLookAndFeelClassName()
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    28
    else
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    29
      laf("Nimbus") orElse laf("GTK+") getOrElse
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    30
        UIManager.getCrossPlatformLookAndFeelClassName()
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    31
  }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    32
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    33
  def init_laf(): Unit = UIManager.setLookAndFeel(get_laf())
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    34
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    35
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    36
  /* simple dialogs */
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    37
53714
89fb20ae9b73 limit for text height;
wenzelm
parents: 53712
diff changeset
    38
  def scrollable_text(txt: String, width: Int = 60, height: Int = 20, editable: Boolean = false)
89fb20ae9b73 limit for text height;
wenzelm
parents: 53712
diff changeset
    39
    : ScrollPane =
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    40
  {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    41
    val text = new TextArea(txt)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    42
    if (width > 0) text.columns = width
53714
89fb20ae9b73 limit for text height;
wenzelm
parents: 53712
diff changeset
    43
    if (height > 0 && split_lines(txt).length > height) text.rows = height
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    44
    text.editable = editable
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    45
    new ScrollPane(text)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    46
  }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    47
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    48
  private def simple_dialog(kind: Int, default_title: String,
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    49
    parent: Component, title: String, message: Seq[Any])
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    50
  {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    51
    Swing_Thread.now {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    52
      val java_message = message map { case x: scala.swing.Component => x.peer case x => x }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    53
      JOptionPane.showMessageDialog(parent,
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    54
        java_message.toArray.asInstanceOf[Array[AnyRef]],
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    55
        if (title == null) default_title else title, kind)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    56
    }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    57
  }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    58
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    59
  def dialog(parent: Component, title: String, message: Any*) =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    60
    simple_dialog(JOptionPane.PLAIN_MESSAGE, null, parent, title, message)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    61
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    62
  def warning_dialog(parent: Component, title: String, message: Any*) =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    63
    simple_dialog(JOptionPane.WARNING_MESSAGE, "Warning", parent, title, message)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    64
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    65
  def error_dialog(parent: Component, title: String, message: Any*) =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    66
    simple_dialog(JOptionPane.ERROR_MESSAGE, "Error", parent, title, message)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    67
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    68
  def confirm_dialog(parent: Component, title: String, option_type: Int, message: Any*): Int =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    69
    Swing_Thread.now {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    70
      val java_message = message map { case x: scala.swing.Component => x.peer case x => x }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    71
      JOptionPane.showConfirmDialog(parent,
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    72
        java_message.toArray.asInstanceOf[Array[AnyRef]], title,
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    73
          option_type, JOptionPane.QUESTION_MESSAGE)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    74
    }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    75
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    76
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    77
  /* zoom box */
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    78
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    79
  class Zoom_Box(apply_factor: Int => Unit) extends ComboBox[String](
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    80
    List("50%", "70%", "85%", "100%", "125%", "150%", "175%", "200%", "300%", "400%"))
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    81
  {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    82
    val Factor = "([0-9]+)%?".r
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    83
    def parse(text: String): Int =
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    84
      text match {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    85
        case Factor(s) =>
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    86
          val i = Integer.parseInt(s)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    87
          if (10 <= i && i <= 1000) i else 100
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    88
        case _ => 100
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    89
      }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    90
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    91
    def print(i: Int): String = i.toString + "%"
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    92
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    93
    def set_item(i: Int) {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    94
      peer.getEditor match {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    95
        case null =>
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    96
        case editor => editor.setItem(print(i))
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    97
      }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    98
    }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
    99
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   100
    makeEditable()(c => new ComboBox.BuiltInEditor(c)(text => print(parse(text)), x => x))
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   101
    reactions += {
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   102
      case SelectionChanged(_) => apply_factor(parse(selection.item))
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   103
    }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   104
    listenTo(selection)
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   105
    selection.index = 3
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   106
    prototypeDisplayValue = Some("00000%")
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   107
  }
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   108
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   109
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   110
  /* screen resolution */
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   111
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   112
  def resolution_scale(): Double = Toolkit.getDefaultToolkit.getScreenResolution.toDouble / 72
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   113
  def resolution_scale(i: Int): Int = (i.toDouble * resolution_scale()).round.toInt
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   114
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   115
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   116
  /* icon */
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   117
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   118
  def isabelle_icon(): ImageIcon =
53452
8181bc357dc4 more portable access to icon -- avoid Isabelle_System which is not yet initialized in bootstrap;
wenzelm
parents: 51619
diff changeset
   119
    new ImageIcon(getClass.getClassLoader.getResource("isabelle/isabelle.gif"))
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   120
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   121
  def isabelle_image(): Image = isabelle_icon().getImage
53712
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   122
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   123
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   124
  /* component hierachy */
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   125
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   126
  def get_parent(component: Component): Option[Container] =
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   127
    component.getParent match {
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   128
      case null => None
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   129
      case parent => Some(parent)
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   130
    }
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   131
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   132
  def ancestors(component: Component): Iterator[Container] = new Iterator[Container] {
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   133
    private var next_elem = get_parent(component)
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   134
    def hasNext(): Boolean = next_elem.isDefined
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   135
    def next(): Container =
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   136
      next_elem match {
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   137
        case Some(parent) =>
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   138
          next_elem = get_parent(parent)
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   139
          parent
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   140
        case None => Iterator.empty.next()
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   141
      }
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   142
  }
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   143
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   144
  def parent_window(component: Component): Option[Window] =
ea51046be71b tuned signature;
wenzelm
parents: 53452
diff changeset
   145
    ancestors(component).collectFirst({ case x: Window => x })
53778
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   146
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   147
  def layered_pane(component: Component): Option[JLayeredPane] =
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   148
    parent_window(component) match {
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   149
      case Some(window: JWindow) => Some(window.getLayeredPane)
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   150
      case Some(frame: JFrame) => Some(frame.getLayeredPane)
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   151
      case _ => None
29eaacff4078 proper layered pane at root of parent component, not global view (e.g. relevant for tooltips for detached info windows);
wenzelm
parents: 53714
diff changeset
   152
    }
51619
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   153
}
95b7da3430d4 added missing file;
wenzelm
parents:
diff changeset
   154