src/Tools/jEdit/src/symbols_dockable.scala

clarified GUI focus;

/*  Title:      Tools/jEdit/src/symbols_dockable.scala
    Author:     Fabian Immler

Dockable window for Symbol Palette.
*/

package isabelle.jedit


import isabelle._

import scala.swing.event.{SelectionChanged, ValueChanged}
import scala.swing.{Action, Button, TabbedPane, TextField, BorderPanel, Label, ScrollPane}

import org.gjt.sp.jedit.View


class Symbols_Dockable(view: View, position: String) extends Dockable(view, position)
{
  private class Symbol_Component(val symbol: String) extends Button
  {
    private val decoded = Symbol.decode(symbol)
    private val font_size = Font_Info.main_size(PIDE.options.real("jedit_font_scale")).round

    font =
      Symbol.fonts.get(symbol) match {
        case None => Isabelle_Font(size = font_size)
        case Some(font_family) => Isabelle_Font(family = font_family, size = font_size)
      }
    action =
      Action(decoded) {
        val text_area = view.getTextArea
        if (Token_Markup.is_control_style(decoded))
          Token_Markup.edit_control_style(text_area, decoded)
        else text_area.setSelectedText(decoded)
        text_area.requestFocus
      }
    tooltip =
      GUI.tooltip_lines(
        cat_lines(symbol :: Symbol.abbrevs.get_list(symbol).map(a => "abbrev: " + a)))
  }

  private class Reset_Component extends Button
  {
    action = Action("Reset") {
      val text_area = view.getTextArea
      Token_Markup.edit_control_style(text_area, "")
      text_area.requestFocus
    }
    tooltip = "Reset control symbols within text"
  }

  val group_tabs: TabbedPane = new TabbedPane {
    pages ++=
      Symbol.groups.map({ case (group, symbols) =>
        new TabbedPane.Page(group,
          new ScrollPane(new Wrap_Panel {
            contents ++= symbols.map(new Symbol_Component(_))
            if (group == "control") contents += new Reset_Component
          }), null)
      })

    val search_field = new TextField(10)
    val search_page =
      new TabbedPane.Page("search", new BorderPanel {
        val results_panel = new Wrap_Panel
        add(search_field, BorderPanel.Position.North)
        add(new ScrollPane(results_panel), BorderPanel.Position.Center)
  
        val search_space =
          (for (sym <- Symbol.names.keysIterator) yield (sym, Word.lowercase(sym))).toList
        val delay_search =
          Swing_Thread.delay_last(PIDE.options.seconds("editor_input_delay")) {
            val search_limit = PIDE.options.int("jedit_symbols_search_limit") max 0
            results_panel.contents.clear
            val search_words = Word.explode(Word.lowercase(search_field.text))
            val results =
              (for ((sym, s) <- search_space; if search_words.forall(s.contains(_))) yield sym).
                take(search_limit + 1)
            for (sym <- results.take(search_limit))
              results_panel.contents += new Symbol_Component(sym)
            if (results.length > search_limit)
              results_panel.contents += new Label("...")
            revalidate
            repaint
          }
          search_field.reactions += { case ValueChanged(_) => delay_search.invoke() }
      }, "Search Symbols")
    pages += search_page

    listenTo(selection)
    reactions += {
      case SelectionChanged(_) if selection.page == search_page => search_field.requestFocus
    }

    pages.map(p =>
      p.title = Word.implode(Word.explode('_', p.title).map(Word.perhaps_capitalize(_))))
  }
  set_content(group_tabs)
}