importJava "org.simantics.interop.scl.Threads" where
  
  runAsync :: (<Proc>()) -> <Proc> SCLThread
  
  setMaximumPoolSize :: Integer -> <Proc> ()

importJava "org.simantics.interop.scl.Threads$SCLThread" where
  data SCLThread
  
  isRunning :: SCLThread -> <Proc> Boolean
  isCompleted :: SCLThread -> <Proc> Boolean
  hasErrors :: SCLThread -> <Proc> Boolean
  getReturnValue :: SCLThread -> <Proc> Maybe a