206 reactions += { case ButtonClicked(_) => debugger.set_break(selected) } |
206 reactions += { case ButtonClicked(_) => debugger.set_break(selected) } |
207 } |
207 } |
208 |
208 |
209 private val continue_button = new Button("Continue") { |
209 private val continue_button = new Button("Continue") { |
210 tooltip = "Continue program on current thread, until next breakpoint" |
210 tooltip = "Continue program on current thread, until next breakpoint" |
211 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.continue(_)) } |
211 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.continue) } |
212 } |
212 } |
213 |
213 |
214 private val step_button = new Button("Step") { |
214 private val step_button = new Button("Step") { |
215 tooltip = "Single-step in depth-first order" |
215 tooltip = "Single-step in depth-first order" |
216 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step(_)) } |
216 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step) } |
217 } |
217 } |
218 |
218 |
219 private val step_over_button = new Button("Step over") { |
219 private val step_over_button = new Button("Step over") { |
220 tooltip = "Single-step within this function" |
220 tooltip = "Single-step within this function" |
221 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step_over(_)) } |
221 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step_over) } |
222 } |
222 } |
223 |
223 |
224 private val step_out_button = new Button("Step out") { |
224 private val step_out_button = new Button("Step out") { |
225 tooltip = "Single-step outside this function" |
225 tooltip = "Single-step outside this function" |
226 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step_out(_)) } |
226 reactions += { case ButtonClicked(_) => thread_selection().map(debugger.step_out) } |
227 } |
227 } |
228 |
228 |
229 private val context_label = new Label("Context:") { |
229 private val context_label = new Label("Context:") { |
230 tooltip = "Isabelle/ML context: type theory, Proof.context, Context.generic" |
230 tooltip = "Isabelle/ML context: type theory, Proof.context, Context.generic" |
231 } |
231 } |
316 } |
316 } |
317 |
317 |
318 |
318 |
319 /* main panel */ |
319 /* main panel */ |
320 |
320 |
321 val main_panel = new SplitPane(Orientation.Vertical) { |
321 val main_panel: SplitPane = new SplitPane(Orientation.Vertical) { |
322 oneTouchExpandable = true |
322 oneTouchExpandable = true |
323 leftComponent = tree_pane |
323 leftComponent = tree_pane |
324 rightComponent = Component.wrap(pretty_text_area) |
324 rightComponent = Component.wrap(pretty_text_area) |
325 } |
325 } |
326 set_content(main_panel) |
326 set_content(main_panel) |