X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FBrowseContext.scl;h=436557f31e613d10760f593a8b7288b5b64ef518;hb=refs%2Fchanges%2F83%2F1183%2F1;hp=3edb179fc295adc3c7ac223a70f04e49f857ad45;hpb=53e9b3dac5648f360cd91478d9e6e7a495631b08;p=simantics%2Fplatform.git
diff --git a/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/BrowseContext.scl b/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/BrowseContext.scl
index 3edb179fc..436557f31 100644
--- a/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/BrowseContext.scl
+++ b/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/BrowseContext.scl
@@ -1,6 +1,6 @@
-import "Simantics/DB"
+import "Simantics/Variables"
import "Map" as Map
-import "Simantics/Testing/BuiltinKeys"
+include "Simantics/Testing/BuiltinKeys" as BuiltinKeys
importJava "org.simantics.browsing.ui.model.browsecontexts.BrowseContext" where
"""
@@ -68,7 +68,7 @@ importJava "org.simantics.browsing.ui.NodeContext" where
"""
Finds value with the specified key or null
if there was no value for the key
"""
- getConstant :: NodeContext -> ConstantKey -> a
+ getConstant :: NodeContext -> BuiltinKeys.ConstantKey -> a
importJava "org.eclipse.jface.resource.ImageDescriptor" where
data ImageDescriptor
@@ -97,7 +97,7 @@ importJava "org.simantics.browsing.ui.content.LabelDecorator" where
Decorates the given label with the name of the UI column which the label is for and the index of this label within its parenting INodeContext.
Returns the decorated Label
"""
- decorateLabel :: LabelDecorator -> String -> String -> Integer -> String
+ decorateLabel :: LabelDecorator -> String -> String -> Integer -> Maybe String
decorateForeground :: LabelDecorator -> a -> String -> Integer -> a
decorateBackground :: LabelDecorator -> a -> String -> Integer -> a
decorateFont :: LabelDecorator -> Maybe a -> String -> Integer -> Maybe a
@@ -126,3 +126,7 @@ createBrowseContext resource = do
importJava "org.simantics.browsing.ui.common.NodeContextBuilder" where
buildWithInput :: a -> NodeContext
+instanceOfTest :: Variable -> (Resource -> Boolean)
+instanceOfTest self = do
+ typeResource = singleObject (represents $ parent self) MOD.InstanceOfTest.HasType
+ (\r -> isInstanceOf r typeResource)