author | wenzelm |
Wed, 09 Nov 2022 21:14:20 +0100 | |
changeset 76494 | 9686049ce988 |
parent 76492 | e228be7cd375 |
child 76502 | 08b950ca0313 |
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 |
51619 | 2 |
Author: Makarius |
3 |
||
53712 | 4 |
Basic GUI tools (for AWT/Swing). |
51619 | 5 |
*/ |
6 |
||
7 |
package isabelle |
|
8 |
||
73909 | 9 |
import java.util.{Map => JMap} |
73037 | 10 |
import java.awt.{Component, Container, Font, Image, Insets, KeyboardFocusManager, Window, Point, |
73117 | 11 |
Rectangle, Dimension, GraphicsEnvironment, MouseInfo, Toolkit} |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
12 |
import java.awt.event.{KeyAdapter, KeyEvent, ItemListener, ItemEvent} |
72974 | 13 |
import java.awt.font.{FontRenderContext, LineMetrics, TextAttribute, TransformAttribute} |
53785 | 14 |
import java.awt.geom.AffineTransform |
72974 | 15 |
import javax.swing.{ImageIcon, JButton, JDialog, JFrame, JLabel, JLayeredPane, JOptionPane, |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
16 |
JTextField, JWindow, JComboBox, LookAndFeel, UIManager, SwingUtilities} |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
17 |
|
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
18 |
import scala.swing.{CheckBox, ComboBox, ScrollPane, TextArea, ListView, Label, Separator, |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
19 |
Orientation} |
75852 | 20 |
import scala.swing.event.{ButtonClicked, SelectionChanged} |
51619 | 21 |
|
22 |
||
75393 | 23 |
object GUI { |
73116
b84887a67cc6
clarified default L&F of Isabelle/Scala (not Isabelle/jEdit);
wenzelm
parents:
73111
diff
changeset
|
24 |
/* Swing look-and-feel */ |
59201
702e0971d617
added system property isabelle.laf, notably for initial system dialog;
wenzelm
parents:
59183
diff
changeset
|
25 |
|
73878 | 26 |
def init_laf(): Unit = com.formdev.flatlaf.FlatLightLaf.setup() |
51619 | 27 |
|
73367 | 28 |
def current_laf: String = UIManager.getLookAndFeel.getClass.getName() |
72975 | 29 |
|
73367 | 30 |
def is_macos_laf: Boolean = |
31 |
Platform.is_macos && UIManager.getSystemLookAndFeelClassName() == current_laf |
|
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
|
32 |
|
75393 | 33 |
class Look_And_Feel(laf: LookAndFeel) extends Isabelle_System.Service { |
73117 | 34 |
def info: UIManager.LookAndFeelInfo = |
35 |
new UIManager.LookAndFeelInfo(laf.getName, laf.getClass.getName) |
|
73111 | 36 |
} |
37 |
||
38 |
lazy val look_and_feels: List[Look_And_Feel] = |
|
39 |
Isabelle_System.make_services(classOf[Look_And_Feel]) |
|
40 |
||
75393 | 41 |
def init_lafs(): Unit = { |
73117 | 42 |
val old_lafs = |
43 |
Set( |
|
44 |
"com.sun.java.swing.plaf.motif.MotifLookAndFeel", |
|
45 |
"com.sun.java.swing.plaf.windows.WindowsClassicLookAndFeel") |
|
46 |
val lafs = |
|
47 |
UIManager.getInstalledLookAndFeels().toList |
|
48 |
.filterNot(info => old_lafs(info.getClassName)) |
|
49 |
val more_lafs = look_and_feels.map(_.info) |
|
50 |
UIManager.setInstalledLookAndFeels((more_lafs ::: lafs).toArray) |
|
51 |
} |
|
73111 | 52 |
|
53 |
||
73116
b84887a67cc6
clarified default L&F of Isabelle/Scala (not Isabelle/jEdit);
wenzelm
parents:
73111
diff
changeset
|
54 |
/* additional look-and-feels */ |
b84887a67cc6
clarified default L&F of Isabelle/Scala (not Isabelle/jEdit);
wenzelm
parents:
73111
diff
changeset
|
55 |
|
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
|
56 |
/* 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
|
57 |
|
75393 | 58 |
def plain_focus_traversal(component: Component): Unit = { |
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
|
59 |
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
|
60 |
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
|
61 |
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
|
62 |
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
|
63 |
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
|
64 |
} |
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
|
65 |
|
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
|
66 |
|
51619 | 67 |
/* simple dialogs */ |
68 |
||
75393 | 69 |
def scrollable_text( |
70 |
raw_txt: String, |
|
71 |
width: Int = 60, |
|
72 |
height: Int = 20, |
|
73 |
editable: Boolean = false |
|
74 |
) : ScrollPane = { |
|
59671
9715eb8e9408
more precise position information in Isabelle/Scala, with YXML markup as in Isabelle/ML;
wenzelm
parents:
59286
diff
changeset
|
75 |
val txt = Output.clean_yxml(raw_txt) |
51619 | 76 |
val text = new TextArea(txt) |
77 |
if (width > 0) text.columns = width |
|
53714 | 78 |
if (height > 0 && split_lines(txt).length > height) text.rows = height |
51619 | 79 |
text.editable = editable |
80 |
new ScrollPane(text) |
|
81 |
} |
|
82 |
||
75393 | 83 |
private def simple_dialog( |
84 |
kind: Int, |
|
85 |
default_title: String, |
|
86 |
parent: Component, |
|
87 |
title: String, |
|
88 |
message: Iterable[Any] |
|
89 |
): Unit = { |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57044
diff
changeset
|
90 |
GUI_Thread.now { |
65370 | 91 |
val java_message = |
92 |
message.iterator.map({ case x: scala.swing.Component => x.peer case x => x }). |
|
93 |
toArray.asInstanceOf[Array[AnyRef]] |
|
94 |
JOptionPane.showMessageDialog(parent, java_message, |
|
51619 | 95 |
if (title == null) default_title else title, kind) |
96 |
} |
|
97 |
} |
|
98 |
||
57639 | 99 |
def dialog(parent: Component, title: String, message: Any*): Unit = |
51619 | 100 |
simple_dialog(JOptionPane.PLAIN_MESSAGE, null, parent, title, message) |
101 |
||
57639 | 102 |
def warning_dialog(parent: Component, title: String, message: Any*): Unit = |
51619 | 103 |
simple_dialog(JOptionPane.WARNING_MESSAGE, "Warning", parent, title, message) |
104 |
||
57639 | 105 |
def error_dialog(parent: Component, title: String, message: Any*): Unit = |
51619 | 106 |
simple_dialog(JOptionPane.ERROR_MESSAGE, "Error", parent, title, message) |
107 |
||
108 |
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
|
109 |
GUI_Thread.now { |
51619 | 110 |
val java_message = message map { case x: scala.swing.Component => x.peer case x => x } |
111 |
JOptionPane.showConfirmDialog(parent, |
|
112 |
java_message.toArray.asInstanceOf[Array[AnyRef]], title, |
|
113 |
option_type, JOptionPane.QUESTION_MESSAGE) |
|
114 |
} |
|
115 |
||
116 |
||
75852 | 117 |
/* basic GUI components */ |
118 |
||
75853 | 119 |
class Button(label: String) extends scala.swing.Button(label) { |
120 |
def clicked(): Unit = {} |
|
121 |
||
122 |
reactions += { case ButtonClicked(_) => clicked() } |
|
123 |
} |
|
124 |
||
75854 | 125 |
class Check(label: String, init: Boolean = false) extends CheckBox(label) { |
75852 | 126 |
def clicked(state: Boolean): Unit = {} |
127 |
def clicked(): Unit = {} |
|
128 |
||
129 |
selected = init |
|
130 |
reactions += { case ButtonClicked(_) => clicked(selected); clicked() } |
|
131 |
} |
|
75839 | 132 |
|
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
133 |
|
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
134 |
/* list selector */ |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
135 |
|
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
136 |
object Selector { |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
137 |
sealed abstract class Entry[A] { |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
138 |
def get_item: Option[A] = |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
139 |
this match { |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
140 |
case item: Item[_] => Some(item.item) |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
141 |
case _ => None |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
142 |
} |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
143 |
} |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
144 |
case class Item[A](item: A, description: String = "", batch: Int = 0) extends Entry[A] { |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
145 |
override def toString: String = proper_string(description) getOrElse item.toString |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
146 |
} |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
147 |
case class Separator[A](name: String = "", batch: Int = 0) extends Entry[A] { |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
148 |
override def toString: String = "<b>" + name + "</b>" |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
149 |
} |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
150 |
|
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
151 |
def item(name: String, batch: Int = 0): Item[String] = Item(name, batch = batch) |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
152 |
def separator(batch: Int = 0): Separator[String] = Separator(batch = batch) |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
153 |
} |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
154 |
|
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
155 |
class Selector[A](val entries: List[Selector.Entry[A]]) |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
156 |
extends ComboBox[Selector.Entry[A]](entries) { |
75839 | 157 |
def changed(): Unit = {} |
158 |
||
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
159 |
override lazy val peer: JComboBox[Selector.Entry[A]] = |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
160 |
new JComboBox[Selector.Entry[A]](ComboBox.newConstantModel(entries)) with SuperMixin { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
161 |
private var key_released = false |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
162 |
private var sep_selected = false |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
163 |
|
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
164 |
addKeyListener(new KeyAdapter { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
165 |
override def keyPressed(e: KeyEvent): Unit = { key_released = false } |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
166 |
override def keyReleased(e: KeyEvent): Unit = { key_released = true } |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
167 |
}) |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
168 |
|
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
169 |
override def setSelectedIndex(i: Int): Unit = { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
170 |
getItemAt(i) match { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
171 |
case _: Selector.Separator[_] => |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
172 |
if (key_released) { sep_selected = true } |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
173 |
else { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
174 |
val k = getSelectedIndex() |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
175 |
val j = if (i > k) i + 1 else i - 1 |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
176 |
if (0 <= j && j < dataModel.getSize()) super.setSelectedIndex(j) |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
177 |
} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
178 |
case _ => super.setSelectedIndex(i) |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
179 |
} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
180 |
} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
181 |
|
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
182 |
override def setPopupVisible(visible: Boolean): Unit = { |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
183 |
if (sep_selected) { sep_selected = false} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
184 |
else super.setPopupVisible(visible) |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
185 |
} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
186 |
} |
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
187 |
|
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
188 |
private val default_renderer = renderer |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
189 |
private val render_separator = new Separator |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
190 |
private val render_label = new Label |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
191 |
renderer = |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
192 |
(list: ListView[_ <: Selector.Entry[A]], selected: Boolean, focus: Boolean, entry: Selector.Entry[A], i: Int) => { |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
193 |
entry match { |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
194 |
case sep: Selector.Separator[_] => |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
195 |
if (sep.name.isEmpty) render_separator |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
196 |
else { render_label.text = entry.toString; render_label } |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
197 |
case _ => default_renderer.componentFor(list, selected, focus, entry, i) |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
198 |
} |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
199 |
} |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
200 |
|
75839 | 201 |
listenTo(selection) |
202 |
reactions += { case SelectionChanged(_) => changed() } |
|
203 |
} |
|
51619 | 204 |
|
75852 | 205 |
|
206 |
/* zoom factor */ |
|
207 |
||
57044 | 208 |
private val Zoom_Factor = "([0-9]+)%?".r |
209 |
||
75839 | 210 |
class Zoom extends Selector[String]( |
75393 | 211 |
List("50%", "70%", "85%", "100%", "125%", "150%", "175%", "200%", "300%", "400%") |
76494
9686049ce988
more robust selection: avoid duplicates via "batch" number;
wenzelm
parents:
76492
diff
changeset
|
212 |
.map(GUI.Selector.item(_)) |
75393 | 213 |
) { |
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
214 |
def factor: Int = parse(selection.item.toString) |
57044 | 215 |
|
216 |
private def parse(text: String): Int = |
|
51619 | 217 |
text match { |
57044 | 218 |
case Zoom_Factor(s) => |
51619 | 219 |
val i = Integer.parseInt(s) |
56874 | 220 |
if (10 <= i && i < 1000) i else 100 |
51619 | 221 |
case _ => 100 |
222 |
} |
|
223 |
||
57044 | 224 |
private def print(i: Int): String = i.toString + "%" |
51619 | 225 |
|
75393 | 226 |
def set_item(i: Int): Unit = { |
51619 | 227 |
peer.getEditor match { |
228 |
case null => |
|
229 |
case editor => editor.setItem(print(i)) |
|
230 |
} |
|
231 |
} |
|
232 |
||
76492
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
233 |
makeEditable()(c => |
e228be7cd375
clarified GUI.Selector, with support for separator as pseudo-entry;
wenzelm
parents:
75854
diff
changeset
|
234 |
new ComboBox.BuiltInEditor(c)(text => Selector.Item(print(parse(text))), _.toString)) |
56874 | 235 |
peer.getEditor.getEditorComponent match { |
56888 | 236 |
case text: JTextField => text.setColumns(4) |
56874 | 237 |
case _ => |
238 |
} |
|
239 |
||
57044 | 240 |
selection.index = 3 |
51619 | 241 |
} |
242 |
||
243 |
||
53786 | 244 |
/* tooltip with multi-line support */ |
245 |
||
56622
891d1b8b64fb
clarified tooltip_lines: HTML.encode already takes care of newline (but not space);
wenzelm
parents:
54965
diff
changeset
|
246 |
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
|
247 |
if (text == null || text == "") null |
62113 | 248 |
else "<html>" + HTML.output(text) + "</html>" |
53786 | 249 |
|
250 |
||
51619 | 251 |
/* icon */ |
252 |
||
253 |
def isabelle_icon(): ImageIcon = |
|
54676
6b2ca4850b71
uniform use of transparent icons, as for main "apps";
wenzelm
parents:
54659
diff
changeset
|
254 |
new ImageIcon(getClass.getClassLoader.getResource("isabelle/isabelle_transparent-32.gif")) |
51619 | 255 |
|
54709 | 256 |
def isabelle_icons(): List[ImageIcon] = |
257 |
for (icon <- List("isabelle/isabelle_transparent-32.gif", "isabelle/isabelle_transparent.gif")) |
|
258 |
yield new ImageIcon(getClass.getClassLoader.getResource(icon)) |
|
259 |
||
51619 | 260 |
def isabelle_image(): Image = isabelle_icon().getImage |
53712 | 261 |
|
262 |
||
72974 | 263 |
/* location within multi-screen environment */ |
264 |
||
75393 | 265 |
final case class Screen_Location(point: Point, bounds: Rectangle) { |
266 |
def relative(parent: Component, size: Dimension): Point = { |
|
72974 | 267 |
val w = size.width |
268 |
val h = size.height |
|
269 |
||
270 |
val x0 = parent.getLocationOnScreen.x |
|
271 |
val y0 = parent.getLocationOnScreen.y |
|
272 |
val x1 = x0 + parent.getWidth - w |
|
273 |
val y1 = y0 + parent.getHeight - h |
|
274 |
val x2 = point.x min (bounds.x + bounds.width - w) |
|
275 |
val y2 = point.y min (bounds.y + bounds.height - h) |
|
276 |
||
277 |
val location = new Point((x2 min x1) max x0, (y2 min y1) max y0) |
|
278 |
SwingUtilities.convertPointFromScreen(location, parent) |
|
279 |
location |
|
280 |
} |
|
281 |
} |
|
282 |
||
75393 | 283 |
def screen_location(component: Component, point: Point): Screen_Location = { |
72974 | 284 |
val screen_point = new Point(point.x, point.y) |
285 |
if (component != null) SwingUtilities.convertPointToScreen(screen_point, component) |
|
286 |
||
287 |
val ge = GraphicsEnvironment.getLocalGraphicsEnvironment |
|
288 |
val screen_bounds = |
|
289 |
(for { |
|
290 |
device <- ge.getScreenDevices.iterator |
|
291 |
config <- device.getConfigurations.iterator |
|
292 |
bounds = config.getBounds |
|
293 |
} yield bounds).find(_.contains(screen_point)) getOrElse ge.getMaximumWindowBounds |
|
294 |
||
295 |
Screen_Location(screen_point, screen_bounds) |
|
296 |
} |
|
297 |
||
298 |
def mouse_location(): Screen_Location = |
|
299 |
screen_location(null, MouseInfo.getPointerInfo.getLocation) |
|
300 |
||
301 |
||
73037 | 302 |
/* screen size */ |
303 |
||
75393 | 304 |
sealed case class Screen_Size(bounds: Rectangle, insets: Insets) { |
73038
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
305 |
def full_screen_bounds: Rectangle = |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
306 |
if (Platform.is_linux) { |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
307 |
// avoid menu bar and docking areas |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
308 |
new Rectangle( |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
309 |
bounds.x + insets.left, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
310 |
bounds.y + insets.top, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
311 |
bounds.width - insets.left - insets.right, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
312 |
bounds.height - insets.top - insets.bottom) |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
313 |
} |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
314 |
else if (Platform.is_macos) { |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
315 |
// avoid menu bar, but ignore docking areas |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
316 |
new Rectangle( |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
317 |
bounds.x, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
318 |
bounds.y + insets.top, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
319 |
bounds.width, |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
320 |
bounds.height - insets.top) |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
321 |
} |
3b14f7315dd2
some attempts at multi-platform full-screen mode;
wenzelm
parents:
73037
diff
changeset
|
322 |
else bounds |
73037 | 323 |
} |
324 |
||
75393 | 325 |
def screen_size(component: Component): Screen_Size = { |
73037 | 326 |
val config = component.getGraphicsConfiguration |
327 |
val bounds = config.getBounds |
|
328 |
val insets = Toolkit.getDefaultToolkit.getScreenInsets(config) |
|
329 |
Screen_Size(bounds, insets) |
|
330 |
} |
|
331 |
||
332 |
||
53712 | 333 |
/* component hierachy */ |
334 |
||
335 |
def get_parent(component: Component): Option[Container] = |
|
336 |
component.getParent match { |
|
337 |
case null => None |
|
338 |
case parent => Some(parent) |
|
339 |
} |
|
340 |
||
341 |
def ancestors(component: Component): Iterator[Container] = new Iterator[Container] { |
|
342 |
private var next_elem = get_parent(component) |
|
73337 | 343 |
def hasNext: Boolean = next_elem.isDefined |
53712 | 344 |
def next(): Container = |
345 |
next_elem match { |
|
346 |
case Some(parent) => |
|
347 |
next_elem = get_parent(parent) |
|
348 |
parent |
|
349 |
case None => Iterator.empty.next() |
|
350 |
} |
|
351 |
} |
|
352 |
||
353 |
def parent_window(component: Component): Option[Window] = |
|
354 |
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
|
355 |
|
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
|
356 |
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
|
357 |
parent_window(component) match { |
57879
91e188508bc9
proper layered_pane for JDialog, e.g. relevant for floating dockables in jEdit, for completion popup in text field;
wenzelm
parents:
57639
diff
changeset
|
358 |
case Some(w: JWindow) => Some(w.getLayeredPane) |
91e188508bc9
proper layered_pane for JDialog, e.g. relevant for floating dockables in jEdit, for completion popup in text field;
wenzelm
parents:
57639
diff
changeset
|
359 |
case Some(w: JFrame) => Some(w.getLayeredPane) |
91e188508bc9
proper layered_pane for JDialog, e.g. relevant for floating dockables in jEdit, for completion popup in text field;
wenzelm
parents:
57639
diff
changeset
|
360 |
case Some(w: JDialog) => Some(w.getLayeredPane) |
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
|
361 |
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
|
362 |
} |
53785 | 363 |
|
75393 | 364 |
def traverse_components(component: Component, apply: Component => Unit): Unit = { |
365 |
def traverse(comp: Component): Unit = { |
|
63874 | 366 |
apply(comp) |
367 |
comp match { |
|
368 |
case cont: Container => |
|
369 |
for (i <- 0 until cont.getComponentCount) |
|
370 |
traverse(cont.getComponent(i)) |
|
371 |
case _ => |
|
372 |
} |
|
373 |
} |
|
374 |
traverse(component) |
|
375 |
} |
|
376 |
||
53785 | 377 |
|
378 |
/* font operations */ |
|
379 |
||
61742
fd3b214b0979
clarified font: GUI defaults might change dynamically;
wenzelm
parents:
61529
diff
changeset
|
380 |
def copy_font(font: Font): Font = |
fd3b214b0979
clarified font: GUI defaults might change dynamically;
wenzelm
parents:
61529
diff
changeset
|
381 |
if (font == null) null |
fd3b214b0979
clarified font: GUI defaults might change dynamically;
wenzelm
parents:
61529
diff
changeset
|
382 |
else new Font(font.getFamily, font.getStyle, font.getSize) |
fd3b214b0979
clarified font: GUI defaults might change dynamically;
wenzelm
parents:
61529
diff
changeset
|
383 |
|
59230 | 384 |
def line_metrics(font: Font): LineMetrics = |
53785 | 385 |
font.getLineMetrics("", new FontRenderContext(null, false, false)) |
386 |
||
69376 | 387 |
def transform_font(font: Font, transform: AffineTransform): Font = |
73909 | 388 |
font.deriveFont(JMap.of(TextAttribute.TRANSFORM, new TransformAttribute(transform))) |
69376 | 389 |
|
390 |
def font(family: String = Isabelle_Fonts.sans, size: Int = 1, bold: Boolean = false): Font = |
|
391 |
new Font(family, if (bold) Font.BOLD else Font.PLAIN, size) |
|
392 |
||
69377 | 393 |
def label_font(): Font = (new JLabel).getFont |
394 |
||
69376 | 395 |
|
396 |
/* Isabelle fonts */ |
|
397 |
||
75393 | 398 |
def imitate_font( |
399 |
font: Font, |
|
69358
71ef6e6da3dc
prefer Isabelle_Fonts.sans (not mono) as derived GUI font;
wenzelm
parents:
69357
diff
changeset
|
400 |
family: String = Isabelle_Fonts.sans, |
75393 | 401 |
scale: Double = 1.0 |
402 |
): Font = { |
|
53785 | 403 |
val font1 = new Font(family, font.getStyle, font.getSize) |
59286
ac74eedb910a
GUI.imitate_font: more explicit result size, e.g. relevant for caching;
wenzelm
parents:
59230
diff
changeset
|
404 |
val rel_size = line_metrics(font).getHeight.toDouble / line_metrics(font1).getHeight |
ac74eedb910a
GUI.imitate_font: more explicit result size, e.g. relevant for caching;
wenzelm
parents:
59230
diff
changeset
|
405 |
new Font(family, font.getStyle, (scale * rel_size * font.getSize).toInt) |
59183
ec83638b6bfb
imitate font more carefully: err on smaller size;
wenzelm
parents:
59080
diff
changeset
|
406 |
} |
ec83638b6bfb
imitate font more carefully: err on smaller size;
wenzelm
parents:
59080
diff
changeset
|
407 |
|
75393 | 408 |
def imitate_font_css( |
409 |
font: Font, |
|
69358
71ef6e6da3dc
prefer Isabelle_Fonts.sans (not mono) as derived GUI font;
wenzelm
parents:
69357
diff
changeset
|
410 |
family: String = Isabelle_Fonts.sans, |
75393 | 411 |
scale: Double = 1.0 |
412 |
): String = { |
|
59183
ec83638b6bfb
imitate font more carefully: err on smaller size;
wenzelm
parents:
59080
diff
changeset
|
413 |
val font1 = new Font(family, font.getStyle, font.getSize) |
59230 | 414 |
val rel_size = line_metrics(font).getHeight.toDouble / line_metrics(font1).getHeight |
59183
ec83638b6bfb
imitate font more carefully: err on smaller size;
wenzelm
parents:
59080
diff
changeset
|
415 |
"font-family: " + family + "; font-size: " + (scale * rel_size * 100).toInt + "%;" |
53785 | 416 |
} |
69377 | 417 |
|
75393 | 418 |
def use_isabelle_fonts(): Unit = { |
69377 | 419 |
val default_font = label_font() |
420 |
val ui = UIManager.getDefaults |
|
75393 | 421 |
for (prop <- |
422 |
List( |
|
423 |
"ToggleButton.font", |
|
424 |
"CheckBoxMenuItem.font", |
|
425 |
"Label.font", |
|
426 |
"Menu.font", |
|
427 |
"MenuItem.font", |
|
428 |
"PopupMenu.font", |
|
429 |
"Table.font", |
|
430 |
"TableHeader.font", |
|
431 |
"TextArea.font", |
|
432 |
"TextField.font", |
|
433 |
"TextPane.font", |
|
434 |
"ToolTip.font", |
|
435 |
"Tree.font")) { |
|
69377 | 436 |
val font = ui.get(prop) match { case font: Font => font case _ => default_font } |
437 |
ui.put(prop, GUI.imitate_font(font)) |
|
438 |
} |
|
439 |
} |
|
51619 | 440 |
} |
73111 | 441 |
|
442 |
class FlatLightLaf extends GUI.Look_And_Feel(new com.formdev.flatlaf.FlatLightLaf) |
|
443 |
class FlatDarkLaf extends GUI.Look_And_Feel(new com.formdev.flatlaf.FlatDarkLaf) |