66 |
66 |
67 /* pretty text area */ |
67 /* pretty text area */ |
68 |
68 |
69 private val output: Output_Area = |
69 private val output: Output_Area = |
70 new Output_Area(view, root_name = "Threads", split = true) { |
70 new Output_Area(view, root_name = "Threads", split = true) { |
71 override def handle_resize(): Unit = pretty_text_area.zoom(zoom) |
|
72 |
|
73 override def handle_update(): Unit = { |
71 override def handle_update(): Unit = { |
74 val new_snapshot = PIDE.editor.current_node_snapshot(view).getOrElse(current_snapshot) |
72 val new_snapshot = PIDE.editor.current_node_snapshot(view).getOrElse(current_snapshot) |
75 val (new_threads, new_output) = debugger.status(tree_selection()) |
73 val (new_threads, new_output) = debugger.status(tree_selection()) |
76 |
74 |
77 if (new_threads != current_threads) update_tree(new_threads) |
75 if (new_threads != current_threads) update_tree(new_threads) |
229 |
227 |
230 private val sml_button = new GUI.Check("SML") { |
228 private val sml_button = new GUI.Check("SML") { |
231 tooltip = "Official Standard ML instead of Isabelle/ML" |
229 tooltip = "Official Standard ML instead of Isabelle/ML" |
232 } |
230 } |
233 |
231 |
234 private val zoom = |
|
235 new Font_Info.Zoom { override def changed(): Unit = output.handle_resize() } |
|
236 |
|
237 private val controls = |
232 private val controls = |
238 Wrap_Panel( |
233 Wrap_Panel( |
239 List( |
234 List( |
240 break_button, continue_button, step_button, step_over_button, step_out_button, |
235 break_button, continue_button, step_button, step_over_button, step_out_button, |
241 context_label, Component.wrap(context_field), |
236 context_label, Component.wrap(context_field), |
242 expression_label, Component.wrap(expression_field), eval_button, sml_button) ::: |
237 expression_label, Component.wrap(expression_field), eval_button, sml_button) ::: |
243 output.pretty_text_area.search_components ::: |
238 output.pretty_text_area.search_zoom_components) |
244 List(output.pretty_text_area.search_field, zoom)) |
|
245 |
239 |
246 add(controls.peer, BorderLayout.NORTH) |
240 add(controls.peer, BorderLayout.NORTH) |
247 |
241 |
248 |
242 |
249 /* focus */ |
243 /* focus */ |