X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FBrowseContext.scl;h=a662f57f4a47695501052d30dba1072e5d6ad66f;hb=refs%2Fchanges%2F43%2F543%2F1;hp=a4b06495a4b6f155b1a4abd73170e960e1e1cde1;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;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 a4b06495a..a662f57f4 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
@@ -76,13 +76,17 @@ importJava "org.eclipse.jface.resource.ImageDescriptor" where
importJava "org.simantics.browsing.ui.content.ImageDecorator" where
data ImageDecorator
-importJava "org.eclipse.jface.resource.JFaceResources" where
- getDefaultFontDescriptor :: FontDescriptor
-
importJava "org.eclipse.jface.resource.DeviceResourceDescriptor" where
data FontDescriptor
data ColorDescriptor
+importJava "org.eclipse.jface.resource.FontDescriptor" where
+ @private
+ @JavaName createFrom
+ createFontDescriptorFrom :: String -> Integer -> Integer -> FontDescriptor
+
+defaultFontDescriptor = createFontDescriptorFrom "Arial" 12 0
+
importJava "org.simantics.browsing.ui.content.LabelDecorator" where
"""
An interface for decorating aesthetic properties of an UI item, including the label text, font, background color and foreground color.
@@ -96,7 +100,7 @@ importJava "org.simantics.browsing.ui.content.LabelDecorator" where
decorateLabel :: LabelDecorator -> String -> String -> Integer -> String
decorateForeground :: LabelDecorator -> a -> String -> Integer -> a
decorateBackground :: LabelDecorator -> a -> String -> Integer -> a
- decorateFont :: LabelDecorator -> a -> String -> Integer -> a
+ decorateFont :: LabelDecorator -> Maybe a -> String -> Integer -> Maybe a
importJava "org.simantics.browsing.ui.CheckedState" where
data CheckedState
@@ -105,7 +109,8 @@ importJava "org.simantics.browsing.ui.content.Labeler$Modifier" where
data Modifier
getValue :: Modifier -> String
- isValid :: Modifier -> String -> String
+ isValid :: Modifier -> String -> Maybe String
+ modify :: Modifier -> String -> ()
importJava "org.simantics.browsing.ui.model.browsecontexts.BrowseContexts" where
toBrowseContextG :: Vector String -> BrowseContext
@@ -118,3 +123,10 @@ createBrowseContext :: [Resource] -> BrowseContext
createBrowseContext resource = do
create resource
+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)