X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FBrowseContext.scl;h=d051042d5f4258b6c92acbace7b52eeec2a9114b;hb=refs%2Fchanges%2F21%2F3721%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..d051042d5 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,24 @@ 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
+
+importJava "org.eclipse.jface.resource.ColorDescriptor" where
data ColorDescriptor
+importJava "org.eclipse.jface.resource.FontDescriptor" where
+ @private
+ @JavaName createFrom
+ createFontDescriptorFrom :: String -> Integer -> Integer -> FontDescriptor
+
+importJava "org.simantics.modeling.ColorDescriptorUtil" where
+ colorDescriptorAsHex :: ColorDescriptor -> String
+ colorDescriptorAsTuple3 :: ColorDescriptor -> (Double, Double, Double)
+ colorDescriptor :: (Double, Double, Double) -> ColorDescriptor
+
+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.
@@ -93,23 +104,28 @@ 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 -> a -> String -> Integer -> a
+ decorateFont :: LabelDecorator -> Maybe a -> String -> Integer -> Maybe a
importJava "org.simantics.browsing.ui.CheckedState" where
data CheckedState
+ CHECKED :: CheckedState
+ GRAYED :: CheckedState
+ NOT_CHECKED :: CheckedState
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
getNodeContextForResource :: Resource -> NodeContext
+ getNodeContextWithTypeForResource :: Resource -> NodeContext
"""
Creates a new BrowseContext for the given Collection of Resources.
@@ -118,3 +134,13 @@ 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)
+
+type BrowseNodeRule a = VariableOrResource -> a
+
\ No newline at end of file