/* Title: Tools/jEdit/src/documentation_dockable.scala
Author: Makarius
Dockable window for Isabelle documentation.
*/
package isabelle.jedit
import isabelle._
import java.awt.{Dimension, GridLayout}
import javax.swing.{JTree, JScrollPane}
import javax.swing.tree.{DefaultMutableTreeNode, TreeSelectionModel}
import javax.swing.event.{TreeSelectionEvent, TreeSelectionListener}
import org.gjt.sp.jedit.{View, OperatingSystem}
class Documentation_Dockable(view: View, position: String) extends Dockable(view, position)
{
Swing_Thread.require()
private val docs = Doc.contents()
private case class Documentation(name: String, title: String)
{
override def toString =
"<html><b>" + HTML.encode(name) + "</b>: " + HTML.encode(title) + "</html>"
}
private case class Text_File(path: Path)
{
override def toString = path.base.implode
}
private val root = new DefaultMutableTreeNode
docs foreach {
case Doc.Section(text) =>
root.add(new DefaultMutableTreeNode(text))
case Doc.Doc(name, title) =>
root.getLastChild.asInstanceOf[DefaultMutableTreeNode]
.add(new DefaultMutableTreeNode(Documentation(name, title)))
case Doc.Text_File(path: Path) =>
root.getLastChild.asInstanceOf[DefaultMutableTreeNode]
.add(new DefaultMutableTreeNode(Text_File(path.expand)))
}
private def documentation_error(exn: Throwable) {
GUI.error_dialog(view, "Documentation error", GUI.scrollable_text(Exn.message(exn)))
}
private val tree = new JTree(root)
if (!OperatingSystem.isMacOSLF)
tree.putClientProperty("JTree.lineStyle", "Angled")
tree.getSelectionModel.setSelectionMode(TreeSelectionModel.SINGLE_TREE_SELECTION)
tree.addTreeSelectionListener(
new TreeSelectionListener {
override def valueChanged(e: TreeSelectionEvent)
{
tree.getLastSelectedPathComponent match {
case node: DefaultMutableTreeNode =>
node.getUserObject match {
case Documentation(name, _) =>
default_thread_pool.submit(() =>
try { Doc.view(name) }
catch { case exn: Throwable => documentation_error(exn) })
case Text_File(path) =>
try { Hyperlink(Isabelle_System.platform_path(path)).follow(view) }
catch { case exn: Throwable => documentation_error(exn) }
case _ =>
}
case _ =>
}
}
})
tree.setRootVisible(false)
tree.setVisibleRowCount(docs.length)
(0 until docs.length).foreach(tree.expandRow)
private val tree_view = new JScrollPane(tree)
tree_view.setMinimumSize(new Dimension(100, 50))
set_content(tree_view)
}