src/Tools/jEdit/src/debugger_dockable.scala
changeset 71601 97ccf48c2f0c
parent 71525 d7b0d078266d
child 71704 b9a5eb0f3b43
equal deleted inserted replaced
71600:64aad1e46f98 71601:97ccf48c2f0c
    72 
    72 
    73   /* pretty text area */
    73   /* pretty text area */
    74 
    74 
    75   val pretty_text_area = new Pretty_Text_Area(view)
    75   val pretty_text_area = new Pretty_Text_Area(view)
    76 
    76 
    77   override def detach_operation = pretty_text_area.detach_operation
    77   override def detach_operation: Option[() => Unit] = pretty_text_area.detach_operation
    78 
    78 
    79   private def handle_resize()
    79   private def handle_resize()
    80   {
    80   {
    81     GUI_Thread.require {}
    81     GUI_Thread.require {}
    82 
    82 
   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)