Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.osgi / scl / UI / Progress.scl

diff --git a/bundles/org.simantics.scl.osgi/scl/UI/Progress.scl b/bundles/org.simantics.scl.osgi/scl/UI/Progress.scl
new file mode 100644 (file)
index 0000000..2e1cf60
--- /dev/null
+++ b/bundles/org.simantics.scl.osgi/scl/UI/Progress.scl
@@ -0,0 +1,13 @@
+importJava "org.eclipse.core.runtime.IProgressMonitor" where\r
+    data ProgressMonitor\r
+    \r
+    beginTask :: ProgressMonitor -> String -> Integer -> <Proc> ()\r
+    worked :: ProgressMonitor -> Integer -> <Proc> ()    \r
+    done :: ProgressMonitor -> <Proc> ()\r
+    isCanceled :: ProgressMonitor -> Boolean\r
+    setCanceled :: ProgressMonitor -> Boolean -> <Proc> ()\r
+    subTask :: ProgressMonitor -> String -> <Proc> ()\r
+\r
+importJava "org.eclipse.core.runtime.NullProgressMonitor" where\r
+    @JavaName "<init>"\r
+    createNullProgressMonitor :: () -> <Proc> ProgressMonitor\r