X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.template2d.ui%2Fscl%2FSimantics%2FDrawingTemplate.scl;h=7550f707321dfaadbd5d3328628edf66394a408e;hb=7ebd0005704fe333211591ccacdaa26d7c7639ac;hp=34b4f82f27767631e6b108b949affa7a0639abb8;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl b/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
index 34b4f82f2..7550f7073 100644
--- a/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
+++ b/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
@@ -114,14 +114,14 @@ importJava "org.simantics.modeling.ModelingUtils" where
 
 setMonitorPropertyValue :: Monitor -> String -> String -> <WriteGraph> ()
 setMonitorPropertyValue monitor property newValue = do
-    monitorUri = uriOf (toResource monitor)
+    monitorUri = uriOf monitor
     completeUri = monitorUri + "#" + property + "#HasDisplayValue"
     propertyVariable = variable completeUri
     setValue propertyVariable newValue
     
 setFlagTablePropertyValue :: FlagTable -> String -> String -> <WriteGraph> ()
 setFlagTablePropertyValue flagTable property newValue = do
-    flagTableUri = uriOf (toResource flagTable)
+    flagTableUri = uriOf flagTable
     completeUri = flagTableUri + "#" + property + "#HasDisplayValue"
     propertyVariable = variable completeUri
     setValue propertyVariable newValue