author | wenzelm |
Wed, 23 Jul 2014 11:19:24 +0200 | |
changeset 57612 | 990ffb84489b |
parent 57044 | 042d6e58cb40 |
child 57639 | ba170c8ea578 |
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 |
||
54962 | 11 |
import java.lang.{ClassLoader, ClassNotFoundException, NoSuchMethodException} |
56752
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
12 |
import java.awt.{Image, Component, Container, Toolkit, Window, Font, KeyboardFocusManager} |
53785 | 13 |
import java.awt.font.{TextAttribute, TransformAttribute, FontRenderContext, LineMetrics} |
14 |
import java.awt.geom.AffineTransform |
|
56874 | 15 |
import javax.swing.{ImageIcon, JOptionPane, UIManager, JLayeredPane, JFrame, JWindow, |
16 |
JButton, JTextField} |
|
51619 | 17 |
|
54709 | 18 |
import scala.collection.convert.WrapAsJava |
51619 | 19 |
import scala.swing.{ComboBox, TextArea, ScrollPane} |
20 |
import scala.swing.event.SelectionChanged |
|
21 |
||
22 |
||
23 |
object GUI |
|
24 |
{ |
|
25 |
/* Swing look-and-feel */ |
|
26 |
||
27 |
def get_laf(): String = |
|
28 |
{ |
|
29 |
if (Platform.is_windows || Platform.is_macos) |
|
30 |
UIManager.getSystemLookAndFeelClassName() |
|
31 |
else |
|
53850
b1bc857f2422
simplified default L&F -- Nimbus should be always available and GTK+ is not fully working yet;
wenzelm
parents:
53849
diff
changeset
|
32 |
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
|
33 |
.getOrElse(UIManager.getCrossPlatformLookAndFeelClassName()) |
51619 | 34 |
} |
35 |
||
36 |
def init_laf(): Unit = UIManager.setLookAndFeel(get_laf()) |
|
37 |
||
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
|
38 |
def is_macos_laf(): Boolean = |
53849 | 39 |
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
|
40 |
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
|
41 |
|
51619 | 42 |
|
56752
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
43 |
/* plain focus traversal, notably for text fields */ |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
44 |
|
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
45 |
def plain_focus_traversal(component: Component) |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
46 |
{ |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
47 |
val dummy_button = new JButton |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
48 |
def apply(id: Int): Unit = |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
49 |
component.setFocusTraversalKeys(id, dummy_button.getFocusTraversalKeys(id)) |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
50 |
apply(KeyboardFocusManager.FORWARD_TRAVERSAL_KEYS) |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
51 |
apply(KeyboardFocusManager.BACKWARD_TRAVERSAL_KEYS) |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
52 |
} |
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
53 |
|
72b4205f4de9
uniform focus traversal via TAB / Shift-TAB for all fields, in contrast to Java defaults, but in accordance to occasional jEdit practice;
wenzelm
parents:
56622
diff
changeset
|
54 |
|
54962 | 55 |
/* X11 window manager */ |
56 |
||
57 |
def window_manager(): Option[String] = |
|
58 |
{ |
|
54965 | 59 |
if (Platform.is_windows || Platform.is_macos) None |
60 |
else |
|
61 |
try { |
|
62 |
val XWM = Class.forName("sun.awt.X11.XWM", true, ClassLoader.getSystemClassLoader) |
|
63 |
val getWM = XWM.getDeclaredMethod("getWM") |
|
64 |
getWM.setAccessible(true) |
|
65 |
getWM.invoke(null) match { |
|
66 |
case null => None |
|
67 |
case wm => Some(wm.toString) |
|
68 |
} |
|
54962 | 69 |
} |
54965 | 70 |
catch { |
71 |
case _: ClassNotFoundException => None |
|
72 |
case _: NoSuchMethodException => None |
|
73 |
} |
|
54962 | 74 |
} |
75 |
||
76 |
||
51619 | 77 |
/* simple dialogs */ |
78 |
||
53714 | 79 |
def scrollable_text(txt: String, width: Int = 60, height: Int = 20, editable: Boolean = false) |
80 |
: ScrollPane = |
|
51619 | 81 |
{ |
82 |
val text = new TextArea(txt) |
|
83 |
if (width > 0) text.columns = width |
|
53714 | 84 |
if (height > 0 && split_lines(txt).length > height) text.rows = height |
51619 | 85 |
text.editable = editable |
86 |
new ScrollPane(text) |
|
87 |
} |
|
88 |
||
89 |
private def simple_dialog(kind: Int, default_title: String, |
|
90 |
parent: Component, title: String, message: Seq[Any]) |
|
91 |
{ |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57044
diff
changeset
|
92 |
GUI_Thread.now { |
51619 | 93 |
val java_message = message map { case x: scala.swing.Component => x.peer case x => x } |
94 |
JOptionPane.showMessageDialog(parent, |
|
95 |
java_message.toArray.asInstanceOf[Array[AnyRef]], |
|
96 |
if (title == null) default_title else title, kind) |
|
97 |
} |
|
98 |
} |
|
99 |
||
100 |
def dialog(parent: Component, title: String, message: Any*) = |
|
101 |
simple_dialog(JOptionPane.PLAIN_MESSAGE, null, parent, title, message) |
|
102 |
||
103 |
def warning_dialog(parent: Component, title: String, message: Any*) = |
|
104 |
simple_dialog(JOptionPane.WARNING_MESSAGE, "Warning", parent, title, message) |
|
105 |
||
106 |
def error_dialog(parent: Component, title: String, message: Any*) = |
|
107 |
simple_dialog(JOptionPane.ERROR_MESSAGE, "Error", parent, title, message) |
|
108 |
||
109 |
def confirm_dialog(parent: Component, title: String, option_type: Int, message: Any*): Int = |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57044
diff
changeset
|
110 |
GUI_Thread.now { |
51619 | 111 |
val java_message = message map { case x: scala.swing.Component => x.peer case x => x } |
112 |
JOptionPane.showConfirmDialog(parent, |
|
113 |
java_message.toArray.asInstanceOf[Array[AnyRef]], title, |
|
114 |
option_type, JOptionPane.QUESTION_MESSAGE) |
|
115 |
} |
|
116 |
||
117 |
||
118 |
/* zoom box */ |
|
119 |
||
57044 | 120 |
private val Zoom_Factor = "([0-9]+)%?".r |
121 |
||
122 |
abstract class Zoom_Box extends ComboBox[String]( |
|
51619 | 123 |
List("50%", "70%", "85%", "100%", "125%", "150%", "175%", "200%", "300%", "400%")) |
124 |
{ |
|
57044 | 125 |
def changed: Unit |
126 |
def factor: Int = parse(selection.item) |
|
127 |
||
128 |
private def parse(text: String): Int = |
|
51619 | 129 |
text match { |
57044 | 130 |
case Zoom_Factor(s) => |
51619 | 131 |
val i = Integer.parseInt(s) |
56874 | 132 |
if (10 <= i && i < 1000) i else 100 |
51619 | 133 |
case _ => 100 |
134 |
} |
|
135 |
||
57044 | 136 |
private def print(i: Int): String = i.toString + "%" |
51619 | 137 |
|
138 |
def set_item(i: Int) { |
|
139 |
peer.getEditor match { |
|
140 |
case null => |
|
141 |
case editor => editor.setItem(print(i)) |
|
142 |
} |
|
143 |
} |
|
144 |
||
145 |
makeEditable()(c => new ComboBox.BuiltInEditor(c)(text => print(parse(text)), x => x)) |
|
56874 | 146 |
peer.getEditor.getEditorComponent match { |
56888 | 147 |
case text: JTextField => text.setColumns(4) |
56874 | 148 |
case _ => |
149 |
} |
|
150 |
||
57044 | 151 |
selection.index = 3 |
152 |
||
51619 | 153 |
listenTo(selection) |
57044 | 154 |
reactions += { case SelectionChanged(_) => changed } |
51619 | 155 |
} |
156 |
||
157 |
||
53786 | 158 |
/* tooltip with multi-line support */ |
159 |
||
56622
891d1b8b64fb
clarified tooltip_lines: HTML.encode already takes care of newline (but not space);
wenzelm
parents:
54965
diff
changeset
|
160 |
def tooltip_lines(text: String): String = |
891d1b8b64fb
clarified tooltip_lines: HTML.encode already takes care of newline (but not space);
wenzelm
parents:
54965
diff
changeset
|
161 |
if (text == null || text == "") null |
891d1b8b64fb
clarified tooltip_lines: HTML.encode already takes care of newline (but not space);
wenzelm
parents:
54965
diff
changeset
|
162 |
else "<html>" + HTML.encode(text) + "</html>" |
53786 | 163 |
|
164 |
||
51619 | 165 |
/* screen resolution */ |
166 |
||
167 |
def resolution_scale(): Double = Toolkit.getDefaultToolkit.getScreenResolution.toDouble / 72 |
|
168 |
def resolution_scale(i: Int): Int = (i.toDouble * resolution_scale()).round.toInt |
|
169 |
||
170 |
||
171 |
/* icon */ |
|
172 |
||
173 |
def isabelle_icon(): ImageIcon = |
|
54676
6b2ca4850b71
uniform use of transparent icons, as for main "apps";
wenzelm
parents:
54659
diff
changeset
|
174 |
new ImageIcon(getClass.getClassLoader.getResource("isabelle/isabelle_transparent-32.gif")) |
51619 | 175 |
|
54709 | 176 |
def isabelle_icons(): List[ImageIcon] = |
177 |
for (icon <- List("isabelle/isabelle_transparent-32.gif", "isabelle/isabelle_transparent.gif")) |
|
178 |
yield new ImageIcon(getClass.getClassLoader.getResource(icon)) |
|
179 |
||
51619 | 180 |
def isabelle_image(): Image = isabelle_icon().getImage |
53712 | 181 |
|
54709 | 182 |
def isabelle_images(): java.util.List[Image] = |
183 |
WrapAsJava.seqAsJavaList(isabelle_icons.map(_.getImage)) |
|
184 |
||
53712 | 185 |
|
186 |
/* component hierachy */ |
|
187 |
||
188 |
def get_parent(component: Component): Option[Container] = |
|
189 |
component.getParent match { |
|
190 |
case null => None |
|
191 |
case parent => Some(parent) |
|
192 |
} |
|
193 |
||
194 |
def ancestors(component: Component): Iterator[Container] = new Iterator[Container] { |
|
195 |
private var next_elem = get_parent(component) |
|
196 |
def hasNext(): Boolean = next_elem.isDefined |
|
197 |
def next(): Container = |
|
198 |
next_elem match { |
|
199 |
case Some(parent) => |
|
200 |
next_elem = get_parent(parent) |
|
201 |
parent |
|
202 |
case None => Iterator.empty.next() |
|
203 |
} |
|
204 |
} |
|
205 |
||
206 |
def parent_window(component: Component): Option[Window] = |
|
207 |
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
|
208 |
|
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
|
209 |
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
|
210 |
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
|
211 |
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
|
212 |
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
|
213 |
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
|
214 |
} |
53785 | 215 |
|
216 |
||
217 |
/* font operations */ |
|
218 |
||
219 |
def font_metrics(font: Font): LineMetrics = |
|
220 |
font.getLineMetrics("", new FontRenderContext(null, false, false)) |
|
221 |
||
54368 | 222 |
def imitate_font(family: String, font: Font, scale: Double = 1.0): Font = |
53785 | 223 |
{ |
224 |
val font1 = new Font(family, font.getStyle, font.getSize) |
|
54368 | 225 |
val size = scale * (font_metrics(font).getAscent / font_metrics(font1).getAscent * font.getSize) |
226 |
font1.deriveFont(size.round.toInt) |
|
53785 | 227 |
} |
228 |
||
229 |
def transform_font(font: Font, transform: AffineTransform): Font = |
|
230 |
{ |
|
231 |
import scala.collection.JavaConversions._ |
|
232 |
font.deriveFont(Map(TextAttribute.TRANSFORM -> new TransformAttribute(transform))) |
|
233 |
} |
|
51619 | 234 |
} |
235 |