]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.modeling/scl/Simantics/Workbench.scl
Use ListIndexRoots in migration
[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Workbench.scl
1 import "Simantics/DB"
2
3 importJava "org.simantics.ui.workbench.editor.EditorAdapter" where
4     data EditorAdapter
5     openEditor :: EditorAdapter -> a -> <Proc> ()
6
7 importJava "org.simantics.ui.workbench.editor.EditorRegistry" where
8
9     @private
10     @JavaName getInstance
11     getEditorRegistryInstance :: IEditorRegistry
12
13 importJava "org.simantics.ui.workbench.editor.IEditorRegistry" where
14     data IEditorRegistry
15     
16     @private
17     @JavaName getAdaptersFor
18     editorAdapters_ :: IEditorRegistry -> a -> <ReadGraph> Vector EditorAdapter
19
20 editorAdapters :: a -> <ReadGraph> [EditorAdapter]
21 editorAdapters object = vectorToList $ editorAdapters_ getEditorRegistryInstance object