| author | wenzelm |
| Tue, 24 Sep 2013 20:41:28 +0200 | |
| changeset 53853 | e8430d668f44 |
| parent 53850 | b1bc857f2422 |
| child 54368 | 36dc6aa4fe87 |
| permissions | -rw-r--r-- |
|
53783
f5e9d182f645
clarified location of GUI modules (which depend on Swing of JFX);
wenzelm
parents:
53778
diff
changeset
|
1 |
/* Title: Pure/GUI/gui.scala |
|
53853
e8430d668f44
more quasi-generic PIDE modules (NB: Swing/JFX needs to be kept separate from non-GUI material);
wenzelm
parents:
53850
diff
changeset
|
2 |
Module: PIDE-GUI |
| 51619 | 3 |
Author: Makarius |
4 |
||
| 53712 | 5 |
Basic GUI tools (for AWT/Swing). |
| 51619 | 6 |
*/ |
7 |
||
8 |
package isabelle |
|
9 |
||
10 |
||
| 53785 | 11 |
import java.awt.{Image, Component, Container, Toolkit, Window, Font}
|
12 |
import java.awt.font.{TextAttribute, TransformAttribute, FontRenderContext, LineMetrics}
|
|
13 |
import java.awt.geom.AffineTransform |
|
|
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
|
14 |
import javax.swing.{ImageIcon, JOptionPane, UIManager, JLayeredPane, JFrame, JWindow}
|
| 51619 | 15 |
|
16 |
import scala.swing.{ComboBox, TextArea, ScrollPane}
|
|
17 |
import scala.swing.event.SelectionChanged |
|
18 |
||
19 |
||
20 |
object GUI |
|
21 |
{
|
|
22 |
/* Swing look-and-feel */ |
|
23 |
||
24 |
def get_laf(): String = |
|
25 |
{
|
|
26 |
if (Platform.is_windows || Platform.is_macos) |
|
27 |
UIManager.getSystemLookAndFeelClassName() |
|
28 |
else |
|
|
53850
b1bc857f2422
simplified default L&F -- Nimbus should be always available and GTK+ is not fully working yet;
wenzelm
parents:
53849
diff
changeset
|
29 |
UIManager.getInstalledLookAndFeels().find(_.getName == "Nimbus").map(_.getClassName) |
|
b1bc857f2422
simplified default L&F -- Nimbus should be always available and GTK+ is not fully working yet;
wenzelm
parents:
53849
diff
changeset
|
30 |
.getOrElse(UIManager.getCrossPlatformLookAndFeelClassName()) |
| 51619 | 31 |
} |
32 |
||
33 |
def init_laf(): Unit = UIManager.setLookAndFeel(get_laf()) |
|
34 |
||
|
53848
8d7029eb0c31
disable standard behaviour of Mac OS X text field (i.e. select-all after focus gain) in order to make completion work more smoothly;
wenzelm
parents:
53786
diff
changeset
|
35 |
def is_macos_laf(): Boolean = |
| 53849 | 36 |
Platform.is_macos && |
|
53848
8d7029eb0c31
disable standard behaviour of Mac OS X text field (i.e. select-all after focus gain) in order to make completion work more smoothly;
wenzelm
parents:
53786
diff
changeset
|
37 |
UIManager.getSystemLookAndFeelClassName() == UIManager.getLookAndFeel.getClass.getName |
|
8d7029eb0c31
disable standard behaviour of Mac OS X text field (i.e. select-all after focus gain) in order to make completion work more smoothly;
wenzelm
parents:
53786
diff
changeset
|
38 |
|
| 51619 | 39 |
|
40 |
/* simple dialogs */ |
|
41 |
||
| 53714 | 42 |
def scrollable_text(txt: String, width: Int = 60, height: Int = 20, editable: Boolean = false) |
43 |
: ScrollPane = |
|
| 51619 | 44 |
{
|
45 |
val text = new TextArea(txt) |
|
46 |
if (width > 0) text.columns = width |
|
| 53714 | 47 |
if (height > 0 && split_lines(txt).length > height) text.rows = height |
| 51619 | 48 |
text.editable = editable |
49 |
new ScrollPane(text) |
|
50 |
} |
|
51 |
||
52 |
private def simple_dialog(kind: Int, default_title: String, |
|
53 |
parent: Component, title: String, message: Seq[Any]) |
|
54 |
{
|
|
55 |
Swing_Thread.now {
|
|
56 |
val java_message = message map { case x: scala.swing.Component => x.peer case x => x }
|
|
57 |
JOptionPane.showMessageDialog(parent, |
|
58 |
java_message.toArray.asInstanceOf[Array[AnyRef]], |
|
59 |
if (title == null) default_title else title, kind) |
|
60 |
} |
|
61 |
} |
|
62 |
||
63 |
def dialog(parent: Component, title: String, message: Any*) = |
|
64 |
simple_dialog(JOptionPane.PLAIN_MESSAGE, null, parent, title, message) |
|
65 |
||
66 |
def warning_dialog(parent: Component, title: String, message: Any*) = |
|
67 |
simple_dialog(JOptionPane.WARNING_MESSAGE, "Warning", parent, title, message) |
|
68 |
||
69 |
def error_dialog(parent: Component, title: String, message: Any*) = |
|
70 |
simple_dialog(JOptionPane.ERROR_MESSAGE, "Error", parent, title, message) |
|
71 |
||
72 |
def confirm_dialog(parent: Component, title: String, option_type: Int, message: Any*): Int = |
|
73 |
Swing_Thread.now {
|
|
74 |
val java_message = message map { case x: scala.swing.Component => x.peer case x => x }
|
|
75 |
JOptionPane.showConfirmDialog(parent, |
|
76 |
java_message.toArray.asInstanceOf[Array[AnyRef]], title, |
|
77 |
option_type, JOptionPane.QUESTION_MESSAGE) |
|
78 |
} |
|
79 |
||
80 |
||
81 |
/* zoom box */ |
|
82 |
||
83 |
class Zoom_Box(apply_factor: Int => Unit) extends ComboBox[String]( |
|
84 |
List("50%", "70%", "85%", "100%", "125%", "150%", "175%", "200%", "300%", "400%"))
|
|
85 |
{
|
|
86 |
val Factor = "([0-9]+)%?".r |
|
87 |
def parse(text: String): Int = |
|
88 |
text match {
|
|
89 |
case Factor(s) => |
|
90 |
val i = Integer.parseInt(s) |
|
91 |
if (10 <= i && i <= 1000) i else 100 |
|
92 |
case _ => 100 |
|
93 |
} |
|
94 |
||
95 |
def print(i: Int): String = i.toString + "%" |
|
96 |
||
97 |
def set_item(i: Int) {
|
|
98 |
peer.getEditor match {
|
|
99 |
case null => |
|
100 |
case editor => editor.setItem(print(i)) |
|
101 |
} |
|
102 |
} |
|
103 |
||
104 |
makeEditable()(c => new ComboBox.BuiltInEditor(c)(text => print(parse(text)), x => x)) |
|
105 |
reactions += {
|
|
106 |
case SelectionChanged(_) => apply_factor(parse(selection.item)) |
|
107 |
} |
|
108 |
listenTo(selection) |
|
109 |
selection.index = 3 |
|
110 |
prototypeDisplayValue = Some("00000%")
|
|
111 |
} |
|
112 |
||
113 |
||
| 53786 | 114 |
/* tooltip with multi-line support */ |
115 |
||
116 |
def tooltip_lines(lines: List[String]): String = |
|
117 |
if (lines.isEmpty) null |
|
118 |
else "<html><pre>" + HTML.encode(cat_lines(lines)) + "</pre></html>" |
|
119 |
||
120 |
||
| 51619 | 121 |
/* screen resolution */ |
122 |
||
123 |
def resolution_scale(): Double = Toolkit.getDefaultToolkit.getScreenResolution.toDouble / 72 |
|
124 |
def resolution_scale(i: Int): Int = (i.toDouble * resolution_scale()).round.toInt |
|
125 |
||
126 |
||
127 |
/* icon */ |
|
128 |
||
129 |
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
|
130 |
new ImageIcon(getClass.getClassLoader.getResource("isabelle/isabelle.gif"))
|
| 51619 | 131 |
|
132 |
def isabelle_image(): Image = isabelle_icon().getImage |
|
| 53712 | 133 |
|
134 |
||
135 |
/* component hierachy */ |
|
136 |
||
137 |
def get_parent(component: Component): Option[Container] = |
|
138 |
component.getParent match {
|
|
139 |
case null => None |
|
140 |
case parent => Some(parent) |
|
141 |
} |
|
142 |
||
143 |
def ancestors(component: Component): Iterator[Container] = new Iterator[Container] {
|
|
144 |
private var next_elem = get_parent(component) |
|
145 |
def hasNext(): Boolean = next_elem.isDefined |
|
146 |
def next(): Container = |
|
147 |
next_elem match {
|
|
148 |
case Some(parent) => |
|
149 |
next_elem = get_parent(parent) |
|
150 |
parent |
|
151 |
case None => Iterator.empty.next() |
|
152 |
} |
|
153 |
} |
|
154 |
||
155 |
def parent_window(component: Component): Option[Window] = |
|
156 |
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
|
157 |
|
|
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
|
158 |
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
|
159 |
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
|
160 |
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
|
161 |
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
|
162 |
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
|
163 |
} |
| 53785 | 164 |
|
165 |
||
166 |
/* font operations */ |
|
167 |
||
168 |
def font_metrics(font: Font): LineMetrics = |
|
169 |
font.getLineMetrics("", new FontRenderContext(null, false, false))
|
|
170 |
||
171 |
def imitate_font(family: String, font: Font): Font = |
|
172 |
{
|
|
173 |
val font1 = new Font(family, font.getStyle, font.getSize) |
|
174 |
font1.deriveFont(font_metrics(font).getAscent / font_metrics(font1).getAscent * font.getSize) |
|
175 |
} |
|
176 |
||
177 |
def transform_font(font: Font, transform: AffineTransform): Font = |
|
178 |
{
|
|
179 |
import scala.collection.JavaConversions._ |
|
180 |
font.deriveFont(Map(TextAttribute.TRANSFORM -> new TransformAttribute(transform))) |
|
181 |
} |
|
| 51619 | 182 |
} |
183 |