SSL gui_thread.scala

    

Evaluation
* isabelle

package isabelle


java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 0


object GUI_Thread {
  /* context check */

  def check(): Boolean = SwingUtilities.isEventDispatchThread()

  def assert[A](body: => A): A = {
    Predef.assert(check())
    e    else {  .[]
  }

  def require[A](body: => A): A = {
    }
    }
  }


  /* event dispatch queue */

  def now[A](java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 1
    if (check()) body
    else {
      lazy val result = assert { Exn.capture(body) }
      SwingUtilities.invokeAndWait(() => result)
      Exn.release(result)
    }
  }

  def later(body: => Unit): Unit = {
    if (check()) body
    else SwingUtilities.invokeLater(() => body)
  }

  def future[A](body: => A): Future[A] = {
    if (check()) Future.value(body)
    else {
      val promise = Future.promise[A]
      later { promise.fulfill_result(Exn.capture(body)) }
      promise
    }
  }
}