src/Tools/jEdit/src/process_indicator.scala

join all theory body forks, notably Toplevel.atom_result (diagnostic commands), before peeking at full status;

/*  Title:      Tools/jEdit/src/process_indicator.scala
    Author:     Makarius

Process indicator with animated icon.
*/

package isabelle.jedit


import isabelle._

import java.awt.Image
import java.awt.event.{ActionListener, ActionEvent}
import javax.swing.{ImageIcon, Timer}
import scala.swing.{Label, Component}


class Process_Indicator
{
  private val label = new Label

  private val passive_icon =
    JEdit_Lib.load_image_icon(PIDE.options.string("process_passive_icon")).getImage
  private val active_icons =
    space_explode(':', PIDE.options.string("process_active_icons")).map(name =>
      JEdit_Lib.load_image_icon(name).getImage)

  private val animation = new ImageIcon(passive_icon) {
    private var current_frame = 0
    private val timer =
      new Timer(0, new ActionListener {
        override def actionPerformed(e: ActionEvent) {
          current_frame = (current_frame + 1) % active_icons.length
          setImage(active_icons(current_frame))
          label.repaint
        }
      })
    timer.setRepeats(true)

    def update(rate: Int)
    {
      if (rate == 0) {
        setImage(passive_icon)
        timer.stop
        label.repaint
      }
      else {
        val delay = 1000 / rate
        timer.setInitialDelay(delay)
        timer.setDelay(delay)
        timer.restart
      }
    }
  }
  label.icon = animation

  def component: Component = label

  def update(tip: String, rate: Int)
  {
    label.tooltip = tip
    animation.update(rate)
  }
}